/ Hyper Stacks 1994 May / Hyper Stacks (Pacific HiTech)(1994)[Mac].iso / Fun / Doctor Who

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0a 44 6f 63 74 6f 72 | 20 57 68 6f 00 00 00 00 |..Doctor| Who....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 53 54 41 4b 57 49 4c | 44 01 00 00 00 00 00 00 |.STAKWIL|D.......|
|00000050| 00 00 00 00 0c 00 00 00 | 0a 9c 82 a2 05 94 bd a9 |........|........|
|00000060| e6 83 fb 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 a4 14 00 00 |........|........|
|00000080| 00 00 56 00 53 54 41 4b | ff ff ff ff 00 00 00 00 |..V.STAK|........|
|00000090| 00 00 00 0a 00 0c 00 00 | 00 00 56 00 00 00 00 00 |........|..V.....|
|000000a0| 00 00 00 03 00 00 00 05 | 00 00 0a d6 00 00 00 d9 |........|........|
|000000b0| 00 01 65 70 00 00 08 92 | 00 00 00 03 00 00 45 40 |..ep....|......E@|
|000000c0| 00 00 0d af 00 00 00 00 | 00 05 00 00 10 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 01 20 80 00 02 10 80 00 | 02 10 80 00 02 10 80 01 |. ......|........|
|000000f0| f0 4f 3a e8 00 00 00 0b | 00 fb 00 70 02 51 02 70 |.O:.....|...p.Q.p|
|00000100| 00 00 00 00 02 70 03 40 | 00 00 00 00 00 00 00 00 |.....p.@|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000230| 00 00 2e 4b 00 00 2d 12 | 00 00 00 00 00 00 00 00 |...K..-.|........|
|00000240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 00 00 22 00 00 00 22 00 |........|.."...".|
|00000350| 88 00 22 00 88 00 22 00 | cc 00 33 00 cc 00 33 00 |.."...".|..3...3.|
|00000360| cc 88 33 22 cc 88 33 22 | ee 88 bb 22 ee 88 bb 22 |..3"..3"|..."..."|
|00000370| ee cc bb 33 ee cc bb 33 | ff cc ff 33 ff cc ff 33 |...3...3|...3...3|
|00000380| ff ee ff bb ff ee ff bb | ff ff ff bb ff ff ff bb |........|........|
|00000390| 80 10 02 20 01 08 40 04 | ff ff ff ff ff ff ff ff |... ..@.|........|
|000003a0| 88 22 88 22 88 22 88 22 | 11 22 44 88 11 22 44 88 |."."."."|."D.."D.|
|000003b0| c4 80 0c 68 43 02 30 26 | b1 30 03 1b d8 c0 0c 8d |...hC.0&|.0......|
|000003c0| aa 00 aa 00 aa 00 aa 00 | 88 22 55 22 88 22 55 22 |........|."U"."U"|
|000003d0| 88 55 22 55 88 55 22 55 | 77 dd 77 dd 77 dd 77 dd |.U"U.U"U|w.w.w.w.|
|000003e0| 80 00 00 00 00 00 00 00 | aa 55 aa 55 aa 55 aa 55 |........|.U.U.U.U|
|000003f0| 03 84 48 30 0c 02 01 01 | 82 44 39 44 82 01 01 01 |..H0....|.D9D....|
|00000400| 88 14 22 41 88 41 22 14 | 80 80 41 3e 08 08 14 e3 |.."A.A".|..A>....|
|00000410| 22 04 8c 74 22 17 98 10 | be 80 88 08 eb 08 88 80 |"..t"...|........|
|00000420| 25 c8 32 89 64 24 4c 92 | a2 9c 41 be 2a c9 14 eb |%.2.d$L.|..A.*...|
|00000430| 40 a0 00 00 04 0a 00 00 | 80 40 20 00 02 04 08 00 |@.......|.@ .....|
|00000440| aa 00 80 00 88 00 80 00 | ff 80 80 80 80 80 80 80 |........|........|
|00000450| 08 1c 22 c1 80 01 02 04 | ff 80 80 80 ff 08 08 08 |..".....|........|
|00000460| f8 74 22 47 8f 17 22 71 | bf 00 bf bf b0 b0 b0 b0 |.t"G.."q|........|
|00000470| ff 7f be 5d a2 41 80 00 | fa f5 fa f5 a0 50 a0 50 |...].A..|.....P.P|
|00000480| 00 09 50 c0 00 00 25 60 | 00 0b b8 20 00 00 00 60 |..P...%`|... ...`|
|00000490| 00 0b e0 60 00 00 1f 80 | 00 00 00 00 00 00 00 00 |...`....|........|
|000004a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000500| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000680| b0 b0 b0 b0 20 53 63 72 | 69 70 74 20 69 6e 66 6f |.... Scr|ipt info|
|00000690| 20 66 6f 72 20 22 44 6f | 63 74 6f 72 20 57 68 6f | for "Do|ctor Who|
|000006a0| 22 2c 20 53 54 41 43 4b | 20 b0 b0 b0 b0 0d 0d 48 |", STACK| ......H|
|000006b0| 41 4e 44 4c 45 52 53 3a | 0d 2d 2d 20 61 72 72 6f |ANDLERS:|.-- arro|
|000006c0| 77 4b 65 79 2c 20 62 61 | 6e 6e 65 72 2c 20 63 68 |wKey, ba|nner, ch|
|000006d0| 65 63 6b 53 79 73 74 65 | 6d 2c 20 63 6c 6f 73 65 |eckSyste|m, close|
|000006e0| 44 6f 63 74 6f 72 2c 20 | 63 6c 6f 73 65 73 74 61 |Doctor, |closesta|
|000006f0| 63 6b 2c 20 63 6f 70 79 | 54 6f 2c 0d 2d 2d 20 63 |ck, copy|To,.-- c|
|00000700| 72 65 61 74 65 4d 65 6e | 75 2c 20 64 6f 49 6e 69 |reateMen|u, doIni|
|00000710| 74 43 61 72 64 2c 20 64 | 6f 6d 65 6e 75 2c 20 65 |tCard, d|omenu, e|
|00000720| 64 69 74 4d 6f 64 65 2c | 20 66 6c 69 70 66 61 73 |ditMode,| flipfas|
|00000730| 74 2c 20 66 6c 69 70 52 | 65 67 75 6c 61 72 2c 0d |t, flipR|egular,.|
|00000740| 2d 2d 20 67 65 74 54 61 | 70 65 44 61 74 61 2c 20 |-- getTa|peData, |
|00000750| 67 6c 65 61 6e 43 61 72 | 64 73 2c 20 69 6e 69 74 |gleanCar|ds, init|
|00000760| 43 61 72 64 2c 20 69 6e | 69 74 53 74 61 63 6b 2c |Card, in|itStack,|
|00000770| 20 69 6e 69 74 54 61 70 | 65 44 61 74 61 2c 0d 2d | initTap|eData,.-|
|00000780| 2d 20 6f 70 65 6e 44 6f | 63 74 6f 72 2c 20 6f 70 |- openDo|ctor, op|
|00000790| 65 6e 73 74 61 63 6b 2c | 20 70 72 69 6e 74 54 61 |enstack,| printTa|
|000007a0| 70 65 2c 20 70 75 74 44 | 61 74 61 49 6e 74 6f 50 |pe, putD|ataIntoP|
|000007b0| 72 69 6e 74 43 61 72 64 | 2c 0d 2d 2d 20 72 61 76 |rintCard|,.-- rav|
|000007c0| 65 53 65 74 75 70 2c 20 | 74 61 72 64 69 73 43 75 |eSetup, |tardisCu|
|000007d0| 72 73 6f 72 2c 20 74 6f | 67 67 6c 65 45 64 69 74 |rsor, to|ggleEdit|
|000007e0| 4d 6f 64 65 2c 20 74 6f | 67 67 6c 65 46 61 6e 63 |Mode, to|ggleFanc|
|000007f0| 79 4f 70 65 6e 69 6e 67 | 0d 0d 46 55 4e 43 54 49 |yOpening|..FUNCTI|
|00000800| 4f 4e 53 3a 0d 2d 2d 20 | 63 72 65 61 74 65 4d 65 |ONS:.-- |createMe|
|00000810| 6e 75 49 74 65 6d 73 2c | 20 63 72 65 61 74 65 4d |nuItems,| createM|
|00000820| 65 6e 75 4d 73 67 73 2c | 20 64 61 74 65 56 65 72 |enuMsgs,| dateVer|
|00000830| 69 66 79 2c 20 65 70 69 | 73 6f 64 65 45 78 69 73 |ify, epi|sodeExis|
|00000840| 74 73 2c 0d 2d 2d 20 66 | 6f 6e 74 53 69 7a 65 2c |ts,.-- f|ontSize,|
|00000850| 20 67 65 74 43 6f 6d 6d | 65 6e 74 73 2c 20 6e 75 | getComm|ents, nu|
|00000860| 6d 62 65 72 56 65 72 69 | 66 79 2c 20 70 75 6c 6c |mberVeri|fy, pull|
|00000870| 44 6f 77 6e 2c 20 73 74 | 72 69 70 51 75 6f 74 65 |Down, st|ripQuote|
|00000880| 0d 0d 47 4c 4f 42 41 4c | 53 3a 0d 2d 2d 20 2c 20 |..GLOBAL|S:.-- , |
|00000890| 44 57 63 70 75 2c 20 6e | 75 6d 5f 65 70 69 73 6f |DWcpu, n|um_episo|
|000008a0| 64 65 73 2c 20 73 79 73 | 74 65 6d 37 43 68 65 63 |des, sys|tem7Chec|
|000008b0| 6b 2c 20 74 61 72 64 69 | 73 4e 75 6d 2c 20 74 68 |k, tardi|sNum, th|
|000008c0| 65 4f 6c 64 55 73 65 72 | 4c 65 76 65 6c 0d 0d 53 |eOldUser|Level..S|
|000008d0| 54 41 54 53 3a 20 32 31 | 37 39 34 20 63 68 61 72 |TATS: 21|794 char|
|000008e0| 73 2c 20 37 37 31 20 6c | 69 6e 65 73 2c 20 33 2f |s, 771 l|ines, 3/|
|000008f0| 31 34 2f 39 32 2c 20 32 | 3a 34 38 20 50 4d 0d b0 |14/92, 2|:48 PM..|
|00000900| b0 b0 b0 b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |........|........|
|00000910| b0 b0 b0 b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |........|........|
|00000920| b0 b0 b0 b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |........|........|
|00000930| b0 b0 b0 b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |........|........|
|00000940| b0 b0 b0 b0 b0 b0 0d 2d | 2d 20 20 50 6f 72 74 69 |.......-|-  Porti|
|00000950| 6f 6e 73 20 6f 66 20 74 | 68 69 73 20 73 74 61 63 |ons of t|his stac|
|00000960| 6b 20 61 72 65 20 66 72 | 6f 6d 20 31 30 31 20 53 |k are fr|om 101 S|
|00000970| 63 72 69 70 74 73 20 26 | 20 42 75 74 74 6f 6e 73 |cripts &| Buttons|
|00000980| 20 66 6f 72 20 48 79 70 | 65 72 43 61 72 64 aa 0d | for Hyp|erCard..|
|00000990| 2d 2d 20 20 70 75 62 6c | 69 73 68 65 64 20 62 79 |--  publ|ished by|
|000009a0| 20 49 6e 64 69 76 69 64 | 75 61 6c 20 53 6f 66 74 | Individ|ual Soft|
|000009b0| 77 61 72 65 2c 20 63 72 | 65 61 74 65 64 20 62 79 |ware, cr|eated by|
|000009c0| 20 49 4e 54 45 52 41 43 | 54 49 56 45 20 44 45 53 | INTERAC|TIVE DES|
|000009d0| 49 47 4e 2e 0d 2d 2d 20 | 20 54 68 65 79 d5 72 65 |IGN..-- | They.re|
|000009e0| 20 75 73 65 64 20 69 6e | 20 74 68 69 73 20 73 74 | used in| this st|
|000009f0| 61 63 6b 20 77 69 74 68 | 20 70 65 72 6d 69 73 73 |ack with| permiss|
|00000a00| 69 6f 6e 20 73 69 6e 63 | 65 20 74 68 65 20 64 65 |ion sinc|e the de|
|00000a10| 76 65 6c 6f 70 65 72 20 | 6f 66 0d 2d 2d 20 20 74 |veloper |of.--  t|
|00000a20| 68 69 73 20 73 74 61 63 | 6b 20 69 73 20 61 20 6c |his stac|k is a l|
|00000a30| 65 67 69 74 69 6d 61 74 | 65 20 6f 77 6e 65 72 20 |egitimat|e owner |
|00000a40| 6f 66 20 74 68 69 73 20 | 70 72 6f 64 75 63 74 2e |of this |product.|
|00000a50| 20 54 68 65 79 20 61 72 | 65 20 6e 6f 74 0d 2d 2d | They ar|e not.--|
|00000a60| 20 20 70 75 62 6c 69 63 | 20 64 6f 6d 61 69 6e 2c |  public| domain,|
|00000a70| 20 62 75 74 20 61 72 65 | 20 75 73 65 64 20 69 6e | but are| used in|
|00000a80| 20 74 68 69 73 20 73 74 | 61 63 6b 20 75 6e 64 65 | this st|ack unde|
|00000a90| 72 20 6c 69 63 65 6e 73 | 65 20 62 79 20 74 68 65 |r licens|e by the|
|00000aa0| 0d 2d 2d 20 20 63 6f 70 | 79 72 69 67 68 74 20 68 |.--  cop|yright h|
|00000ab0| 6f 6c 64 65 72 2c 20 49 | 6e 64 69 76 69 64 75 61 |older, I|ndividua|
|00000ac0| 6c 20 53 6f 66 74 77 61 | 72 65 2e 20 4f 74 68 65 |l Softwa|re. Othe|
|00000ad0| 72 73 20 6d 61 79 20 6e | 6f 74 20 65 78 74 72 61 |rs may n|ot extra|
|00000ae0| 63 74 20 6f 72 0d 2d 2d | 20 20 75 73 65 20 74 68 |ct or.--|  use th|
|00000af0| 65 73 65 20 70 6f 72 74 | 69 6f 6e 73 20 69 6e 20 |ese port|ions in |
|00000b00| 6f 74 68 65 72 20 73 74 | 61 63 6b 73 20 75 6e 6c |other st|acks unl|
|00000b10| 65 73 73 20 74 68 65 79 | 20 61 72 65 20 61 6c 73 |ess they| are als|
|00000b20| 6f 20 6f 77 6e 65 72 73 | 20 6f 66 0d 2d 2d 20 20 |o owners| of.--  |
|00000b30| 31 30 31 20 53 63 72 69 | 70 74 73 20 26 20 42 75 |101 Scri|pts & Bu|
|00000b40| 74 74 6f 6e 73 20 66 6f | 72 20 48 79 70 65 72 43 |ttons fo|r HyperC|
|00000b50| 61 72 64 aa 2e 0d 2d 2d | 20 20 20 20 49 6e 64 69 |ard...--|    Indi|
|00000b60| 76 69 64 75 61 6c 20 53 | 6f 66 74 77 61 72 65 2c |vidual S|oftware,|
|00000b70| 20 31 32 35 20 53 68 6f | 72 65 77 61 79 20 23 33 | 125 Sho|reway #3|
|00000b80| 30 30 30 2c 20 53 61 6e | 20 43 61 72 6c 6f 73 2c |000, San| Carlos,|
|00000b90| 20 43 41 20 39 34 30 37 | 30 0d 2d 2d 20 20 20 20 | CA 9407|0.--    |
|00000ba0| 20 20 20 20 20 20 20 20 | 20 38 30 30 2d 33 33 31 |        | 800-331|
|00000bb0| 2d 33 33 31 33 20 28 55 | 53 41 29 20 6f 72 20 34 |-3313 (U|SA) or 4|
|00000bc0| 31 35 2d 35 39 35 2d 38 | 38 35 35 20 28 69 6e 20 |15-595-8|855 (in |
|00000bd0| 43 41 29 0d 2d 2d 0d 6f | 6e 20 66 6c 69 70 52 65 |CA).--.o|n flipRe|
|00000be0| 67 75 6c 61 72 0d 68 69 | 64 65 20 6d 73 67 0d 2d |gular.hi|de msg.-|
|00000bf0| 2d 76 69 73 75 61 6c 20 | 65 66 66 65 63 74 20 64 |-visual |effect d|
|00000c00| 69 73 73 6f 6c 76 65 20 | 73 6c 6f 77 6c 79 0d 70 |issolve |slowly.p|
|00000c10| 75 74 20 74 68 65 20 73 | 65 63 6f 6e 64 73 20 69 |ut the s|econds i|
|00000c20| 6e 74 6f 20 74 68 65 54 | 69 6d 65 0d 67 6f 20 74 |nto theT|ime.go t|
|00000c30| 6f 20 63 61 72 64 20 22 | 61 6e 69 6d 20 31 22 0d |o card "|anim 1".|
|00000c40| 77 61 69 74 20 32 20 73 | 65 63 6f 6e 64 73 0d 70 |wait 2 s|econds.p|
|00000c50| 6c 61 79 20 22 54 61 72 | 64 69 73 4c 61 6e 64 69 |lay "Tar|disLandi|
|00000c60| 6e 67 22 0d 70 75 74 20 | 32 20 69 6e 74 6f 20 78 |ng".put |2 into x|
|00000c70| 0d 72 65 70 65 61 74 20 | 77 68 69 6c 65 20 78 20 |.repeat |while x |
|00000c80| 3c 3d 20 31 34 0d 76 69 | 73 75 61 6c 20 65 66 66 |<= 14.vi|sual eff|
|00000c90| 65 63 74 20 64 69 73 73 | 6f 6c 76 65 0d 70 75 74 |ect diss|olve.put|
|00000ca0| 20 22 61 6e 69 6d 20 22 | 20 26 20 78 20 69 6e 74 | "anim "| & x int|
|00000cb0| 6f 20 63 61 72 64 4e 61 | 6d 65 0d 67 6f 20 74 6f |o cardNa|me.go to|
|00000cc0| 20 63 61 72 64 20 63 61 | 72 64 4e 61 6d 65 0d 70 | card ca|rdName.p|
|00000cd0| 75 74 20 32 20 2b 20 78 | 20 69 6e 74 6f 20 78 0d |ut 2 + x| into x.|
|00000ce0| 65 6e 64 20 72 65 70 65 | 61 74 0d 0d 72 65 70 65 |end repe|at..repe|
|00000cf0| 61 74 20 77 68 69 6c 65 | 20 74 68 65 20 73 65 63 |at while| the sec|
|00000d00| 6f 6e 64 73 20 2d 20 74 | 68 65 54 69 6d 65 20 3c |onds - t|heTime <|
|00000d10| 20 32 33 0d 65 6e 64 20 | 72 65 70 65 61 74 0d 0d | 23.end |repeat..|
|00000d20| 70 6c 61 79 20 22 48 69 | 6c 6c 56 69 65 77 52 6f |play "Hi|llViewRo|
|00000d30| 61 64 22 0d 77 61 69 74 | 20 33 20 73 65 63 6f 6e |ad".wait| 3 secon|
|00000d40| 64 0d 70 6c 61 79 20 22 | 53 6f 75 74 68 43 72 6f |d.play "|SouthCro|
|00000d50| 79 64 69 6e 22 0d 77 61 | 69 74 20 35 20 73 65 63 |ydin".wa|it 5 sec|
|00000d60| 6f 6e 64 0d 76 69 73 75 | 61 6c 20 65 66 66 65 63 |ond.visu|al effec|
|00000d70| 74 20 64 69 73 73 6f 6c | 76 65 0d 67 6f 20 74 6f |t dissol|ve.go to|
|00000d80| 20 63 61 72 64 20 22 61 | 6e 69 6d 20 31 22 0d 0d | card "a|nim 1"..|
|00000d90| 77 61 69 74 20 32 20 73 | 65 63 6f 6e 64 73 0d 70 |wait 2 s|econds.p|
|00000da0| 75 74 20 31 35 20 69 6e | 74 6f 20 78 0d 70 6c 61 |ut 15 in|to x.pla|
|00000db0| 79 20 22 44 57 53 68 6f | 72 74 54 68 65 6d 65 22 |y "DWSho|rtTheme"|
|00000dc0| 0d 72 65 70 65 61 74 20 | 77 68 69 6c 65 20 78 20 |.repeat |while x |
|00000dd0| 3c 3d 20 36 33 0d 2d 2d | 72 65 70 65 61 74 20 77 |<= 63.--|repeat w|
|00000de0| 69 74 68 20 78 20 3d 20 | 31 35 20 74 6f 20 36 33 |ith x = |15 to 63|
|00000df0| 0d 76 69 73 75 61 6c 20 | 65 66 66 65 63 74 20 64 |.visual |effect d|
|00000e00| 69 73 73 6f 6c 76 65 20 | 66 61 73 74 0d 70 75 74 |issolve |fast.put|
|00000e10| 20 22 61 6e 69 6d 20 22 | 20 26 20 78 20 69 6e 74 | "anim "| & x int|
|00000e20| 6f 20 63 61 72 64 4e 61 | 6d 65 0d 0d 67 6f 20 74 |o cardNa|me..go t|
|00000e30| 6f 20 63 61 72 64 20 63 | 61 72 64 4e 61 6d 65 0d |o card c|ardName.|
|00000e40| 70 75 74 20 78 20 2b 20 | 32 20 69 6e 74 6f 20 78 |put x + |2 into x|
|00000e50| 0d 65 6e 64 20 72 65 70 | 65 61 74 0d 0d 77 61 69 |.end rep|eat..wai|
|00000e60| 74 20 34 20 73 65 63 6f | 6e 64 73 0d 72 65 70 65 |t 4 seco|nds.repe|
|00000e70| 61 74 20 77 69 74 68 20 | 78 20 3d 20 36 34 20 74 |at with |x = 64 t|
|00000e80| 6f 20 37 38 0d 2d 2d 76 | 69 73 75 61 6c 20 65 66 |o 78.--v|isual ef|
|00000e90| 66 65 63 74 20 64 69 73 | 73 6f 6c 76 65 0d 70 75 |fect dis|solve.pu|
|00000ea0| 74 20 22 61 6e 69 6d 20 | 22 20 26 20 78 20 69 6e |t "anim |" & x in|
|00000eb0| 74 6f 20 63 61 72 64 4e | 61 6d 65 0d 67 6f 20 74 |to cardN|ame.go t|
|00000ec0| 6f 20 63 61 72 64 20 63 | 61 72 64 4e 61 6d 65 0d |o card c|ardName.|
|00000ed0| 65 6e 64 20 72 65 70 65 | 61 74 0d 77 61 69 74 20 |end repe|at.wait |
|00000ee0| 32 20 73 65 63 6f 6e 64 | 73 0d 65 6e 64 20 66 6c |2 second|s.end fl|
|00000ef0| 69 70 52 65 67 75 6c 61 | 72 0d 0d 6f 6e 20 66 6c |ipRegula|r..on fl|
|00000f00| 69 70 66 61 73 74 0d 68 | 69 64 65 20 6d 73 67 0d |ipfast.h|ide msg.|
|00000f10| 70 75 74 20 74 68 65 20 | 73 65 63 6f 6e 64 73 20 |put the |seconds |
|00000f20| 69 6e 74 6f 20 74 68 65 | 54 69 6d 65 0d 2d 2d 76 |into the|Time.--v|
|00000f30| 69 73 75 61 6c 20 65 66 | 66 65 63 74 20 64 69 73 |isual ef|fect dis|
|00000f40| 73 6f 6c 76 65 20 73 6c | 6f 77 6c 79 0d 67 6f 20 |solve sl|owly.go |
|00000f50| 74 6f 20 63 61 72 64 20 | 22 61 6e 69 6d 20 31 22 |to card |"anim 1"|
|00000f60| 0d 77 61 69 74 20 32 20 | 73 65 63 6f 6e 64 73 0d |.wait 2 |seconds.|
|00000f70| 70 6c 61 79 20 22 54 61 | 72 64 69 73 4c 61 6e 64 |play "Ta|rdisLand|
|00000f80| 69 6e 67 22 0d 77 61 69 | 74 20 35 20 73 65 63 6f |ing".wai|t 5 seco|
|00000f90| 6e 64 73 0d 70 75 74 20 | 32 20 69 6e 74 6f 20 78 |nds.put |2 into x|
|00000fa0| 0d 72 65 70 65 61 74 20 | 77 68 69 6c 65 20 78 20 |.repeat |while x |
|00000fb0| 3c 3d 20 31 34 0d 70 75 | 74 20 22 61 6e 69 6d 20 |<= 14.pu|t "anim |
|00000fc0| 22 20 26 20 78 20 69 6e | 74 6f 20 63 61 72 64 4e |" & x in|to cardN|
|00000fd0| 61 6d 65 0d 76 69 73 75 | 61 6c 20 65 66 66 65 63 |ame.visu|al effec|
|00000fe0| 74 20 64 69 73 73 6f 6c | 76 65 0d 67 6f 20 74 6f |t dissol|ve.go to|
|00000ff0| 20 63 61 72 64 20 63 61 | 72 64 4e 61 6d 65 0d 70 | card ca|rdName.p|
|00001000| 75 74 20 32 20 2b 20 78 | 20 69 6e 74 6f 20 78 0d |ut 2 + x| into x.|
|00001010| 65 6e 64 20 72 65 70 65 | 61 74 0d 0d 72 65 70 65 |end repe|at..repe|
|00001020| 61 74 20 77 68 69 6c 65 | 20 74 68 65 20 73 65 63 |at while| the sec|
|00001030| 6f 6e 64 73 20 2d 20 74 | 68 65 54 69 6d 65 20 3c |onds - t|heTime <|
|00001040| 20 32 30 0d 65 6e 64 20 | 72 65 70 65 61 74 0d 0d | 20.end |repeat..|
|00001050| 70 6c 61 79 20 22 48 69 | 6c 6c 56 69 65 77 52 6f |play "Hi|llViewRo|
|00001060| 61 64 22 0d 77 61 69 74 | 20 33 20 73 65 63 6f 6e |ad".wait| 3 secon|
|00001070| 64 0d 70 6c 61 79 20 22 | 53 6f 75 74 68 43 72 6f |d.play "|SouthCro|
|00001080| 79 64 69 6e 22 0d 77 61 | 69 74 20 35 20 73 65 63 |ydin".wa|it 5 sec|
|00001090| 6f 6e 64 0d 76 69 73 75 | 61 6c 20 65 66 66 65 63 |ond.visu|al effec|
|000010a0| 74 20 64 69 73 73 6f 6c | 76 65 0d 67 6f 20 74 6f |t dissol|ve.go to|
|000010b0| 20 63 61 72 64 20 22 61 | 6e 69 6d 20 31 22 0d 0d | card "a|nim 1"..|
|000010c0| 77 61 69 74 20 32 20 73 | 65 63 6f 6e 64 73 0d 70 |wait 2 s|econds.p|
|000010d0| 75 74 20 31 35 20 69 6e | 74 6f 20 78 0d 70 6c 61 |ut 15 in|to x.pla|
|000010e0| 79 20 22 44 57 53 68 6f | 72 74 54 68 65 6d 65 22 |y "DWSho|rtTheme"|
|000010f0| 0d 77 61 69 74 20 32 20 | 73 65 63 6f 6e 64 73 0d |.wait 2 |seconds.|
|00001100| 72 65 70 65 61 74 20 77 | 68 69 6c 65 20 78 20 3c |repeat w|hile x <|
|00001110| 3d 20 36 33 0d 70 75 74 | 20 22 61 6e 69 6d 20 22 |= 63.put| "anim "|
|00001120| 20 26 20 78 20 69 6e 74 | 6f 20 63 61 72 64 4e 61 | & x int|o cardNa|
|00001130| 6d 65 0d 76 69 73 75 61 | 6c 20 65 66 66 65 63 74 |me.visua|l effect|
|00001140| 20 64 69 73 73 6f 6c 76 | 65 0d 67 6f 20 74 6f 20 | dissolv|e.go to |
|00001150| 63 61 72 64 20 63 61 72 | 64 4e 61 6d 65 0d 70 75 |card car|dName.pu|
|00001160| 74 20 78 20 2b 20 32 20 | 69 6e 74 6f 20 78 0d 65 |t x + 2 |into x.e|
|00001170| 6e 64 20 72 65 70 65 61 | 74 0d 0d 77 61 69 74 20 |nd repea|t..wait |
|00001180| 34 20 73 65 63 6f 6e 64 | 73 0d 72 65 70 65 61 74 |4 second|s.repeat|
|00001190| 20 77 69 74 68 20 78 20 | 3d 20 36 34 20 74 6f 20 | with x |= 64 to |
|000011a0| 37 38 0d 2d 2d 76 69 73 | 75 61 6c 20 65 66 66 65 |78.--vis|ual effe|
|000011b0| 63 74 20 64 69 73 73 6f | 6c 76 65 0d 70 75 74 20 |ct disso|lve.put |
|000011c0| 22 61 6e 69 6d 20 22 20 | 26 20 78 20 69 6e 74 6f |"anim " |& x into|
|000011d0| 20 63 61 72 64 4e 61 6d | 65 0d 67 6f 20 74 6f 20 | cardNam|e.go to |
|000011e0| 63 61 72 64 20 63 61 72 | 64 4e 61 6d 65 0d 65 6e |card car|dName.en|
|000011f0| 64 20 72 65 70 65 61 74 | 0d 77 61 69 74 20 32 20 |d repeat|.wait 2 |
|00001200| 73 65 63 6f 6e 64 73 0d | 65 6e 64 20 66 6c 69 70 |seconds.|end flip|
|00001210| 66 61 73 74 0d 0d 6f 6e | 20 67 6c 65 61 6e 43 61 |fast..on| gleanCa|
|00001220| 72 64 73 0d 70 75 74 20 | 31 36 20 69 6e 74 6f 20 |rds.put |16 into |
|00001230| 78 0d 72 65 70 65 61 74 | 20 77 68 69 6c 65 20 78 |x.repeat| while x|
|00001240| 20 3c 3d 20 36 33 0d 2d | 2d 72 65 70 65 61 74 20 | <= 63.-|-repeat |
|00001250| 77 69 74 68 20 78 20 3d | 20 31 35 20 74 6f 20 36 |with x =| 15 to 6|
|00001260| 33 0d 76 69 73 75 61 6c | 20 65 66 66 65 63 74 20 |3.visual| effect |
|00001270| 64 69 73 73 6f 6c 76 65 | 0d 70 75 74 20 22 61 6e |dissolve|.put "an|
|00001280| 69 6d 20 22 20 26 20 78 | 20 69 6e 74 6f 20 63 61 |im " & x| into ca|
|00001290| 72 64 4e 61 6d 65 0d 67 | 6f 20 74 6f 20 63 61 72 |rdName.g|o to car|
|000012a0| 64 20 63 61 72 64 4e 61 | 6d 65 0d 73 65 74 20 63 |d cardNa|me.set c|
|000012b0| 61 6e 74 64 65 6c 65 74 | 65 20 6f 66 20 74 68 69 |antdelet|e of thi|
|000012c0| 73 20 63 61 72 64 20 74 | 6f 20 66 61 6c 73 65 0d |s card t|o false.|
|000012d0| 73 65 6e 64 20 22 64 6f | 6d 65 6e 75 20 64 65 6c |send "do|menu del|
|000012e0| 65 74 65 20 63 61 72 64 | 22 20 74 6f 20 74 68 69 |ete card|" to thi|
|000012f0| 73 20 73 74 61 63 6b 0d | 70 75 74 20 78 20 2b 20 |s stack.|put x + |
|00001300| 32 20 69 6e 74 6f 20 78 | 0d 65 6e 64 20 72 65 70 |2 into x|.end rep|
|00001310| 65 61 74 0d 65 6e 64 20 | 67 6c 65 61 6e 43 61 72 |eat.end |gleanCar|
|00001320| 64 73 0d 0d 6f 6e 20 6f | 70 65 6e 73 74 61 63 6b |ds..on o|penstack|
|00001330| 0d 67 6c 6f 62 61 6c 20 | 74 68 65 4f 6c 64 55 73 |.global |theOldUs|
|00001340| 65 72 4c 65 76 65 6c 2c | 20 44 57 53 74 61 63 6b |erLevel,| DWStack|
|00001350| 49 6e 55 73 65 2c 20 44 | 57 63 70 75 2c 20 73 79 |InUse, D|Wcpu, sy|
|00001360| 73 74 65 6d 37 43 68 65 | 63 6b 0d 0d 69 66 20 44 |stem7Che|ck..if D|
|00001370| 57 53 74 61 63 6b 49 6e | 55 73 65 20 69 73 20 74 |WStackIn|Use is t|
|00001380| 72 75 65 0d 74 68 65 6e | 0d 63 72 65 61 74 65 4d |rue.then|.createM|
|00001390| 65 6e 75 0d 76 69 73 75 | 61 6c 20 65 66 66 65 63 |enu.visu|al effec|
|000013a0| 74 20 76 65 6e 65 74 69 | 61 6e 20 62 6c 69 6e 64 |t veneti|an blind|
|000013b0| 73 20 73 6c 6f 77 6c 79 | 0d 67 6f 20 74 6f 20 74 |s slowly|.go to t|
|000013c0| 68 65 20 66 69 72 73 74 | 20 63 61 72 64 20 6f 66 |he first| card of|
|000013d0| 20 62 61 63 6b 67 72 6f | 75 6e 64 20 22 74 61 70 | backgro|und "tap|
|000013e0| 65 20 64 61 74 61 62 61 | 73 65 22 0d 65 78 69 74 |e databa|se".exit|
|000013f0| 20 6f 70 65 6e 73 74 61 | 63 6b 0d 65 6e 64 20 69 | opensta|ck.end i|
|00001400| 66 0d 0d 63 68 65 63 6b | 53 79 73 74 65 6d 0d 70 |f..check|System.p|
|00001410| 75 74 20 74 68 65 20 75 | 73 65 72 6c 65 76 65 6c |ut the u|serlevel|
|00001420| 20 69 6e 74 6f 20 74 68 | 65 4f 6c 64 55 73 65 72 | into th|eOldUser|
|00001430| 4c 65 76 65 6c 0d 70 75 | 74 20 74 72 75 65 20 69 |Level.pu|t true i|
|00001440| 6e 74 6f 20 44 57 53 74 | 61 63 6b 49 6e 55 73 65 |nto DWSt|ackInUse|
|00001450| 0d 68 69 64 65 20 6d 65 | 6e 75 62 61 72 0d 63 72 |.hide me|nubar.cr|
|00001460| 65 61 74 65 4d 65 6e 75 | 0d 0d 67 65 74 20 63 61 |eateMenu|..get ca|
|00001470| 72 64 20 66 69 65 6c 64 | 20 22 66 61 6e 63 79 6f |rd field| "fancyo|
|00001480| 70 65 6e 69 6e 67 22 20 | 6f 66 20 63 61 72 64 20 |pening" |of card |
|00001490| 22 6f 70 65 6e 69 6e 67 | 20 63 61 72 64 22 0d 69 |"opening| card".i|
|000014a0| 66 20 69 74 20 69 73 20 | 74 72 75 65 0d 74 68 65 |f it is |true.the|
|000014b0| 6e 0d 2d 2d 66 61 6e 63 | 79 4f 70 65 6e 69 6e 67 |n.--fanc|yOpening|
|000014c0| 0d 69 66 20 44 57 63 70 | 75 20 3e 3d 20 36 38 30 |.if DWcp|u >= 680|
|000014d0| 33 30 0d 74 68 65 6e 0d | 66 6c 69 70 66 61 73 74 |30.then.|flipfast|
|000014e0| 0d 65 6c 73 65 0d 66 6c | 69 70 52 65 67 75 6c 61 |.else.fl|ipRegula|
|000014f0| 72 0d 65 6e 64 20 69 66 | 0d 65 6e 64 20 69 66 0d |r.end if|.end if.|
|00001500| 73 68 6f 77 20 6d 65 6e | 75 62 61 72 0d 76 69 73 |show men|ubar.vis|
|00001510| 75 61 6c 20 65 66 66 65 | 63 74 20 76 65 6e 65 74 |ual effe|ct venet|
|00001520| 69 61 6e 20 62 6c 69 6e | 64 73 20 73 6c 6f 77 6c |ian blin|ds slowl|
|00001530| 79 0d 0d 67 6f 20 74 6f | 20 74 68 65 20 66 69 72 |y..go to| the fir|
|00001540| 73 74 20 63 61 72 64 20 | 6f 66 20 62 61 63 6b 67 |st card |of backg|
|00001550| 72 6f 75 6e 64 20 22 74 | 61 70 65 20 64 61 74 61 |round "t|ape data|
|00001560| 62 61 73 65 22 0d 69 66 | 20 73 79 73 74 65 6d 37 |base".if| system7|
|00001570| 43 68 65 63 6b 20 69 73 | 20 66 61 6c 73 65 0d 74 |Check is| false.t|
|00001580| 68 65 6e 0d 70 75 74 20 | 31 20 69 6e 74 6f 20 78 |hen.put |1 into x|
|00001590| 0d 72 65 70 65 61 74 20 | 75 6e 74 69 6c 20 74 68 |.repeat |until th|
|000015a0| 65 20 6d 6f 75 73 65 43 | 6c 69 63 6b 20 6f 72 20 |e mouseC|lick or |
|000015b0| 78 20 3e 20 35 20 6f 72 | 20 74 68 65 20 6f 70 74 |x > 5 or| the opt|
|000015c0| 69 6f 6e 4b 65 79 20 69 | 73 20 64 6f 77 6e 0d 62 |ionKey i|s down.b|
|000015d0| 61 6e 6e 65 72 20 22 2d | 2d 48 6f 6c 64 20 64 6f |anner "-|-Hold do|
|000015e0| 77 6e 20 74 68 65 20 6f | 70 74 69 6f 6e 20 6b 65 |wn the o|ption ke|
|000015f0| 79 20 66 6f 72 20 68 65 | 6c 70 2d 2d 22 0d 70 75 |y for he|lp--".pu|
|00001600| 74 20 78 20 2b 20 31 20 | 69 6e 74 6f 20 78 0d 65 |t x + 1 |into x.e|
|00001610| 6e 64 20 72 65 70 65 61 | 74 0d 68 69 64 65 20 6d |nd repea|t.hide m|
|00001620| 65 73 73 61 67 65 0d 65 | 6e 64 20 69 66 0d 0d 70 |essage.e|nd if..p|
|00001630| 61 73 73 20 6f 70 65 6e | 73 74 61 63 6b 0d 65 6e |ass open|stack.en|
|00001640| 64 20 6f 70 65 6e 73 74 | 61 63 6b 0d 0d 6f 6e 20 |d openst|ack..on |
|00001650| 72 61 76 65 53 65 74 75 | 70 0d 52 41 56 45 20 22 |raveSetu|p.RAVE "|
|00001660| 7c 7e 53 70 65 65 64 20 | 20 39 30 7e 7c 22 0d 52 ||~Speed | 90~|".R|
|00001670| 41 56 45 20 22 7c 7e 53 | 50 45 45 44 20 31 34 35 |AVE "|~S|PEED 145|
|00001680| 7e 7c 22 0d 52 41 56 45 | 20 22 7c 7e 50 49 54 43 |~|".RAVE| "|~PITC|
|00001690| 48 20 31 34 30 7e 7c 22 | 0d 65 6e 64 20 72 61 76 |H 140~|"|.end rav|
|000016a0| 65 53 65 74 75 70 0d 0d | 6f 6e 20 6f 70 65 6e 44 |eSetup..|on openD|
|000016b0| 6f 63 74 6f 72 0d 52 41 | 56 45 20 22 7b 41 43 54 |octor.RA|VE "{ACT|
|000016c0| 4f 52 20 44 4f 43 54 4f | 52 33 20 61 74 20 4c 65 |OR DOCTO|R3 at Le|
|000016d0| 66 74 20 32 38 36 20 54 | 6f 70 20 35 30 7d 22 0d |ft 286 T|op 50}".|
|000016e0| 52 41 56 45 20 22 7b 46 | 72 65 65 7a 65 7d 22 0d |RAVE "{F|reeze}".|
|000016f0| 65 6e 64 20 6f 70 65 6e | 44 6f 63 74 6f 72 0d 0d |end open|Doctor..|
|00001700| 6f 6e 20 63 6c 6f 73 65 | 44 6f 63 74 6f 72 0d 52 |on close|Doctor.R|
|00001710| 41 56 45 20 22 7b 52 45 | 54 49 52 45 20 44 4f 43 |AVE "{RE|TIRE DOC|
|00001720| 54 4f 52 33 7d 22 0d 65 | 6e 64 20 63 6c 6f 73 65 |TOR3}".e|nd close|
|00001730| 44 6f 63 74 6f 72 0d 0d | 6f 6e 20 63 6c 6f 73 65 |Doctor..|on close|
|00001740| 73 74 61 63 6b 0d 67 6c | 6f 62 61 6c 20 74 68 65 |stack.gl|obal the|
|00001750| 4f 6c 64 55 73 65 72 4c | 65 76 65 6c 0d 2d 2d 52 |OldUserL|evel.--R|
|00001760| 41 56 45 20 22 7b 52 45 | 54 49 52 45 20 44 4f 43 |AVE "{RE|TIRE DOC|
|00001770| 54 4f 52 33 7d 22 0d 2d | 2d 70 6c 61 79 20 22 54 |TOR3}".-|-play "T|
|00001780| 61 72 64 69 73 4c 61 6e | 64 69 6e 67 22 0d 2d 2d |ardisLan|ding".--|
|00001790| 77 61 69 74 20 33 20 73 | 65 63 6f 6e 64 73 0d 69 |wait 3 s|econds.i|
|000017a0| 66 20 74 68 65 4f 6c 64 | 55 73 65 72 6c 65 76 65 |f theOld|Userleve|
|000017b0| 6c 20 69 73 20 6e 6f 74 | 20 65 6d 70 74 79 0d 74 |l is not| empty.t|
|000017c0| 68 65 6e 0d 73 65 74 20 | 74 68 65 20 75 73 65 72 |hen.set |the user|
|000017d0| 6c 65 76 65 6c 20 74 6f | 20 74 68 65 4f 6c 64 55 |level to| theOldU|
|000017e0| 73 65 72 4c 65 76 65 6c | 0d 65 6e 64 20 69 66 0d |serLevel|.end if.|
|000017f0| 0d 64 65 6c 65 74 65 20 | 6d 65 6e 75 20 22 44 57 |.delete |menu "DW|
|00001800| 22 0d 69 66 20 74 68 65 | 20 66 72 65 65 73 69 7a |".if the| freesiz|
|00001810| 65 20 6f 66 20 74 68 69 | 73 20 73 74 61 63 6b 3e |e of thi|s stack>|
|00001820| 20 35 30 30 30 30 0d 74 | 68 65 6e 0d 69 66 20 74 | 50000.t|hen.if t|
|00001830| 68 65 20 73 69 7a 65 20 | 6f 66 20 74 68 69 73 20 |he size |of this |
|00001840| 73 74 61 63 6b 20 3c 20 | 74 68 65 20 64 69 73 6b |stack < |the disk|
|00001850| 53 70 61 63 65 0d 74 68 | 65 6e 0d 64 6f 4d 65 6e |Space.th|en.doMen|
|00001860| 75 20 22 43 6f 6d 70 61 | 63 74 20 53 74 61 63 6b |u "Compa|ct Stack|
|00001870| 22 0d 65 6e 64 20 69 66 | 0d 65 6e 64 20 69 66 0d |".end if|.end if.|
|00001880| 0d 70 61 73 73 20 63 6c | 6f 73 65 53 74 61 63 6b |.pass cl|oseStack|
|00001890| 0d 65 6e 64 20 63 6c 6f | 73 65 73 74 61 63 6b 0d |.end clo|sestack.|
|000018a0| 0d 66 75 6e 63 74 69 6f | 6e 20 73 74 72 69 70 51 |.functio|n stripQ|
|000018b0| 75 6f 74 65 20 54 68 65 | 54 65 78 74 0d 70 75 74 |uote The|Text.put|
|000018c0| 20 6e 75 6d 62 65 72 20 | 6f 66 20 63 68 61 72 73 | number |of chars|
|000018d0| 20 6f 66 20 54 68 65 74 | 65 78 74 20 69 6e 74 6f | of Thet|ext into|
|000018e0| 20 6e 75 6d 43 68 61 72 | 73 0d 70 75 74 20 63 68 | numChar|s.put ch|
|000018f0| 61 72 20 32 20 74 6f 20 | 6e 75 6d 43 68 61 72 73 |ar 2 to |numChars|
|00001900| 20 2d 20 31 20 6f 66 20 | 54 68 65 54 65 78 74 20 | - 1 of |TheText |
|00001910| 69 6e 74 6f 20 4e 65 77 | 54 65 78 74 0d 72 65 74 |into New|Text.ret|
|00001920| 75 72 6e 20 4e 65 77 54 | 65 78 74 0d 65 6e 64 20 |urn NewT|ext.end |
|00001930| 73 74 72 69 70 51 75 6f | 74 65 0d 0d 66 75 6e 63 |stripQuo|te..func|
|00001940| 74 69 6f 6e 20 65 70 69 | 73 6f 64 65 45 78 69 73 |tion epi|sodeExis|
|00001950| 74 73 0d 67 65 74 20 62 | 6b 67 6e 64 20 66 69 65 |ts.get b|kgnd fie|
|00001960| 6c 64 20 22 45 70 69 73 | 6f 64 65 20 45 78 69 73 |ld "Epis|ode Exis|
|00001970| 74 73 22 0d 72 65 74 75 | 72 6e 20 69 74 0d 65 6e |ts".retu|rn it.en|
|00001980| 64 20 65 70 69 73 6f 64 | 65 45 78 69 73 74 73 0d |d episod|eExists.|
|00001990| 0d 6f 6e 20 63 6f 70 79 | 54 6f 20 77 68 65 72 65 |.on copy|To where|
|000019a0| 0d 70 75 73 68 20 63 61 | 72 64 0d 64 6f 4d 65 6e |.push ca|rd.doMen|
|000019b0| 75 20 22 43 6f 70 79 20 | 43 61 72 64 22 0d 73 65 |u "Copy |Card".se|
|000019c0| 74 20 6c 6f 63 6b 4d 65 | 73 73 61 67 65 73 20 74 |t lockMe|ssages t|
|000019d0| 6f 20 74 72 75 65 0d 67 | 6f 20 74 6f 20 6c 61 73 |o true.g|o to las|
|000019e0| 74 20 63 61 72 64 20 6f | 66 20 73 74 61 63 6b 20 |t card o|f stack |
|000019f0| 77 68 65 72 65 0d 74 79 | 70 65 20 22 76 22 20 77 |where.ty|pe "v" w|
|00001a00| 69 74 68 20 63 6f 6d 6d | 61 6e 64 4b 65 79 0d 70 |ith comm|andKey.p|
|00001a10| 6f 70 20 63 61 72 64 0d | 65 6e 64 20 63 6f 70 79 |op card.|end copy|
|00001a20| 54 6f 0d 0d 66 75 6e 63 | 74 69 6f 6e 20 70 75 6c |To..func|tion pul|
|00001a30| 6c 44 6f 77 6e 0d 70 75 | 74 20 30 20 69 6e 74 6f |lDown.pu|t 0 into|
|00001a40| 20 6c 61 73 74 49 74 65 | 6d 0d 0d 67 65 74 20 74 | lastIte|m..get t|
|00001a50| 68 65 20 72 65 63 74 20 | 6f 66 20 63 61 72 64 20 |he rect |of card |
|00001a60| 77 69 6e 64 6f 77 0d 70 | 75 74 20 65 6d 70 74 79 |window.p|ut empty|
|00001a70| 20 69 6e 74 6f 20 63 68 | 6f 69 63 65 73 0d 70 75 | into ch|oices.pu|
|00001a80| 74 20 22 41 63 74 6f 72 | 2c 41 75 64 69 6f 2c 42 |t "Actor|,Audio,B|
|00001a90| 6f 6f 6b 20 43 6f 6c 6c | 65 63 74 65 64 2c 42 6f |ook Coll|ected,Bo|
|00001aa0| 6f 6b 20 50 75 62 6c 69 | 73 68 65 64 2c 42 72 6f |ok Publi|shed,Bro|
|00001ab0| 61 64 63 61 73 74 20 44 | 61 74 65 2c 43 68 61 72 |adcast D|ate,Char|
|00001ac0| 61 63 74 65 72 2c 45 70 | 69 73 6f 64 65 20 45 78 |acter,Ep|isode Ex|
|00001ad0| 69 73 74 73 2c 45 70 69 | 73 6f 64 65 2c 22 20 26 |ists,Epi|sode," &|
|00001ae0| 20 c2 0d 22 44 65 73 69 | 67 6e 65 72 2c 44 69 72 | .."Desi|gner,Dir|
|00001af0| 65 63 74 6f 72 2c 44 6f | 63 74 6f 72 2c 4e 6f 74 |ector,Do|ctor,Not|
|00001b00| 65 2c 50 72 6f 64 75 63 | 65 72 2c 50 72 6f 64 75 |e,Produc|er,Produ|
|00001b10| 63 74 69 6f 6e 20 43 6f | 64 65 2c 53 65 61 73 6f |ction Co|de,Seaso|
|00001b20| 6e 2c 53 63 72 69 70 74 | 20 45 64 69 74 6f 72 2c |n,Script| Editor,|
|00001b30| 22 20 26 20 c2 0d 22 53 | 74 6f 72 79 20 4c 65 6e |" & .."S|tory Len|
|00001b40| 67 74 68 2c 54 61 70 65 | 20 4e 75 6d 62 65 72 2c |gth,Tape| Number,|
|00001b50| 54 61 70 65 20 53 70 65 | 65 64 2c 54 61 70 65 20 |Tape Spe|ed,Tape |
|00001b60| 43 6f 6c 6c 65 63 74 65 | 64 2c 54 69 74 6c 65 2c |Collecte|d,Title,|
|00001b70| 54 56 20 52 65 63 65 70 | 74 69 6f 6e 2c 57 72 69 |TV Recep|tion,Wri|
|00001b80| 74 65 72 2c 22 20 c2 0d | 69 6e 74 6f 20 63 68 6f |ter," ..|into cho|
|00001b90| 69 63 65 73 0d 0d 70 75 | 74 20 50 6f 70 55 70 4d |ices..pu|t PopUpM|
|00001ba0| 65 6e 75 28 63 68 6f 69 | 63 65 73 2c 20 6c 61 73 |enu(choi|ces, las|
|00001bb0| 74 49 74 65 6d 2c c2 0d | 28 74 68 65 20 6d 6f 75 |tItem,..|(the mou|
|00001bc0| 73 65 56 20 2b 20 69 74 | 65 6d 20 32 20 6f 66 20 |seV + it|em 2 of |
|00001bd0| 69 74 29 2c c2 0d 28 74 | 68 65 20 6d 6f 75 73 65 |it),..(t|he mouse|
|00001be0| 48 20 2b 20 69 74 65 6d | 20 31 20 6f 66 20 69 74 |H + item| 1 of it|
|00001bf0| 29 29 20 69 6e 74 6f 20 | 6a 75 6e 6b 0d 69 66 20 |)) into |junk.if |
|00001c00| 6a 75 6e 6b 20 69 73 20 | 30 20 74 68 65 6e 20 72 |junk is |0 then r|
|00001c10| 65 74 75 72 6e 20 65 6d | 70 74 79 0d 0d 70 75 74 |eturn em|pty..put|
|00001c20| 20 69 74 65 6d 20 6a 75 | 6e 6b 20 6f 66 20 63 68 | item ju|nk of ch|
|00001c30| 6f 69 63 65 73 20 69 6e | 74 6f 20 72 65 74 75 72 |oices in|to retur|
|00001c40| 6e 43 6f 64 65 0d 72 65 | 74 75 72 6e 20 72 65 74 |nCode.re|turn ret|
|00001c50| 75 72 6e 43 6f 64 65 0d | 65 6e 64 20 70 75 6c 6c |urnCode.|end pull|
|00001c60| 44 6f 77 6e 0d 0d 2d 2d | a5 2d a5 2d a5 2d a5 2d |Down..--|.-.-.-.-|
|00001c70| a5 2d a5 2d a5 2d a5 2d | a5 2d a5 2d a5 2d a5 2d |.-.-.-.-|.-.-.-.-|
|00001c80| a5 2d a5 2d a5 2d a5 2d | a5 2d a5 2d a5 2d a5 2d |.-.-.-.-|.-.-.-.-|
|00001c90| a5 2d a5 2d a5 2d a5 2d | a5 2d a5 2d a5 2d a5 2d |.-.-.-.-|.-.-.-.-|
|00001ca0| a5 2d a5 2d a5 2d a5 2d | a5 2d a5 2d 2d 0d 2d 2d |.-.-.-.-|.-.--.--|
|00001cb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001cc0| 20 43 6f 70 79 72 69 67 | 68 74 20 31 39 38 38 20 | Copyrig|ht 1988 |
|00001cd0| 49 6e 64 69 76 69 64 75 | 61 6c 20 53 6f 66 74 77 |Individu|al Softw|
|00001ce0| 61 72 65 0d 2d 2d 20 20 | 20 20 20 20 20 20 20 20 |are.--  |        |
|00001cf0| 20 20 20 20 43 72 65 61 | 74 65 64 20 62 79 20 49 |    Crea|ted by I|
|00001d00| 4e 54 45 52 41 43 54 49 | 56 45 20 44 45 53 49 47 |NTERACTI|VE DESIG|
|00001d10| 4e 20 6f 66 20 53 65 61 | 74 74 6c 65 0d 2d 2d 20 |N of Sea|ttle.-- |
|00001d20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001d30| 20 20 20 20 20 20 20 41 | 6c 6c 20 52 69 67 68 74 |       A|ll Right|
|00001d40| 73 20 52 65 73 65 72 76 | 65 64 0d 2d 2d a5 2d a5 |s Reserv|ed.--.-.|
|00001d50| 2d a5 2d a5 2d a5 2d a5 | 2d a5 2d a5 2d a5 2d a5 |-.-.-.-.|-.-.-.-.|
|00001d60| 2d a5 2d a5 2d a5 2d a5 | 2d a5 2d a5 2d a5 2d a5 |-.-.-.-.|-.-.-.-.|
|00001d70| 2d a5 2d a5 2d a5 2d a5 | 2d a5 2d a5 2d a5 2d a5 |-.-.-.-.|-.-.-.-.|
|00001d80| 2d a5 2d a5 2d a5 2d a5 | 2d a5 2d a5 2d a5 2d a5 |-.-.-.-.|-.-.-.-.|
|00001d90| 2d 2d 0d 66 75 6e 63 74 | 69 6f 6e 20 6e 75 6d 62 |--.funct|ion numb|
|00001da0| 65 72 56 65 72 69 66 79 | 20 63 6f 6e 74 61 69 6e |erVerify| contain|
|00001db0| 65 72 0d 70 75 74 20 74 | 68 65 20 63 68 61 72 54 |er.put t|he charT|
|00001dc0| 6f 4e 75 6d 20 6f 66 20 | 22 30 22 20 69 6e 74 6f |oNum of |"0" into|
|00001dd0| 20 62 61 73 65 0d 70 75 | 74 20 74 68 65 20 63 68 | base.pu|t the ch|
|00001de0| 61 72 54 6f 4e 75 6d 20 | 6f 66 20 22 2e 22 20 69 |arToNum |of "." i|
|00001df0| 6e 74 6f 20 61 70 65 72 | 69 6f 64 0d 70 75 74 20 |nto aper|iod.put |
|00001e00| 74 68 65 20 63 68 61 72 | 54 6f 4e 75 6d 20 6f 66 |the char|ToNum of|
|00001e10| 20 22 20 22 20 69 6e 74 | 6f 20 61 62 6c 61 6e 6b | " " int|o ablank|
|00001e20| 0d 70 75 74 20 74 68 65 | 20 63 68 61 72 54 6f 4e |.put the| charToN|
|00001e30| 75 6d 20 6f 66 20 22 2d | 22 20 69 6e 74 6f 20 61 |um of "-|" into a|
|00001e40| 6d 69 6e 75 73 0d 70 75 | 74 20 30 20 69 6e 74 6f |minus.pu|t 0 into|
|00001e50| 20 69 73 61 6e 75 6d 62 | 65 72 0d 70 75 74 20 66 | isanumb|er.put f|
|00001e60| 61 6c 73 65 20 69 6e 74 | 6f 20 73 65 65 6e 41 50 |alse int|o seenAP|
|00001e70| 65 72 69 6f 64 0d 70 75 | 74 20 66 61 6c 73 65 20 |eriod.pu|t false |
|00001e80| 69 6e 74 6f 20 6e 75 6d | 62 65 72 53 74 61 72 74 |into num|berStart|
|00001e90| 65 64 0d 70 75 74 20 66 | 61 6c 73 65 20 69 6e 74 |ed.put f|alse int|
|00001ea0| 6f 20 6e 75 6d 62 65 72 | 46 69 6e 69 73 68 65 64 |o number|Finished|
|00001eb0| 0d 70 75 74 20 66 61 6c | 73 65 20 69 6e 74 6f 20 |.put fal|se into |
|00001ec0| 73 65 65 6e 41 53 69 67 | 6e 0d 72 65 70 65 61 74 |seenASig|n.repeat|
|00001ed0| 20 77 69 74 68 20 69 20 | 3d 20 31 20 74 6f 20 74 | with i |= 1 to t|
|00001ee0| 68 65 20 6e 75 6d 62 65 | 72 20 6f 66 20 63 68 61 |he numbe|r of cha|
|00001ef0| 72 61 63 74 65 72 73 20 | 69 6e 20 6c 69 6e 65 20 |racters |in line |
|00001f00| 31 20 6f 66 20 63 6f 6e | 74 61 69 6e 65 72 0d 70 |1 of con|tainer.p|
|00001f10| 75 74 20 28 74 68 65 20 | 63 68 61 72 54 6f 4e 75 |ut (the |charToNu|
|00001f20| 6d 20 6f 66 20 63 68 61 | 72 20 69 20 6f 66 20 63 |m of cha|r i of c|
|00001f30| 6f 6e 74 61 69 6e 65 72 | 29 20 69 6e 74 6f 20 74 |ontainer|) into t|
|00001f40| 65 73 74 0d 69 66 20 74 | 65 73 74 20 69 73 20 61 |est.if t|est is a|
|00001f50| 70 65 72 69 6f 64 20 74 | 68 65 6e 0d 69 66 20 6e |period t|hen.if n|
|00001f60| 75 6d 62 65 72 46 69 6e | 69 73 68 65 64 20 6f 72 |umberFin|ished or|
|00001f70| 20 73 65 65 6e 41 70 65 | 72 69 6f 64 20 74 68 65 | seenApe|riod the|
|00001f80| 6e 0d 70 75 74 20 69 20 | 69 6e 74 6f 20 69 73 61 |n.put i |into isa|
|00001f90| 6e 75 6d 62 65 72 0d 65 | 78 69 74 20 72 65 70 65 |number.e|xit repe|
|00001fa0| 61 74 0d 65 6c 73 65 0d | 70 75 74 20 74 72 75 65 |at.else.|put true|
|00001fb0| 20 69 6e 74 6f 20 73 65 | 65 6e 41 50 65 72 69 6f | into se|enAPerio|
|00001fc0| 64 0d 70 75 74 20 74 72 | 75 65 20 69 6e 74 6f 20 |d.put tr|ue into |
|00001fd0| 6e 75 6d 62 65 72 53 74 | 61 72 74 65 64 0d 65 6e |numberSt|arted.en|
|00001fe0| 64 20 69 66 0d 65 6c 73 | 65 20 69 66 20 74 65 73 |d if.els|e if tes|
|00001ff0| 74 20 69 73 20 61 6d 69 | 6e 75 73 20 74 68 65 6e |t is ami|nus then|
|00002000| 0d 69 66 20 6e 75 6d 62 | 65 72 53 74 61 72 74 65 |.if numb|erStarte|
|00002010| 64 20 6f 72 20 73 65 65 | 6e 41 53 69 67 6e 20 74 |d or see|nASign t|
|00002020| 68 65 6e 0d 70 75 74 20 | 69 20 69 6e 74 6f 20 69 |hen.put |i into i|
|00002030| 73 61 6e 75 6d 62 65 72 | 0d 65 78 69 74 20 72 65 |sanumber|.exit re|
|00002040| 70 65 61 74 0d 65 6c 73 | 65 0d 70 75 74 20 74 72 |peat.els|e.put tr|
|00002050| 75 65 20 69 6e 74 6f 20 | 73 65 65 6e 41 53 69 67 |ue into |seenASig|
|00002060| 6e 0d 70 75 74 20 74 72 | 75 65 20 69 6e 74 6f 20 |n.put tr|ue into |
|00002070| 6e 75 6d 62 65 72 53 74 | 61 72 74 65 64 0d 65 6e |numberSt|arted.en|
|00002080| 64 20 69 66 0d 65 6c 73 | 65 20 69 66 20 74 65 73 |d if.els|e if tes|
|00002090| 74 20 69 73 20 61 62 6c | 61 6e 6b 20 61 6e 64 20 |t is abl|ank and |
|000020a0| 6e 75 6d 62 65 72 53 74 | 61 72 74 65 64 20 61 6e |numberSt|arted an|
|000020b0| 64 20 6e 6f 74 20 6e 75 | 6d 62 65 72 46 69 6e 69 |d not nu|mberFini|
|000020c0| 73 68 65 64 20 74 68 65 | 6e 0d 70 75 74 20 74 72 |shed the|n.put tr|
|000020d0| 75 65 20 69 6e 74 6f 20 | 6e 75 6d 62 65 72 46 69 |ue into |numberFi|
|000020e0| 6e 69 73 68 65 64 0d 65 | 6c 73 65 20 69 66 20 74 |nished.e|lse if t|
|000020f0| 65 73 74 20 69 73 20 6e | 6f 74 20 61 62 6c 61 6e |est is n|ot ablan|
|00002100| 6b 20 74 68 65 6e 0d 69 | 66 20 6e 75 6d 62 65 72 |k then.i|f number|
|00002110| 46 69 6e 69 73 68 65 64 | 20 74 68 65 6e 0d 70 75 |Finished| then.pu|
|00002120| 74 20 69 20 69 6e 74 6f | 20 69 73 61 6e 75 6d 62 |t i into| isanumb|
|00002130| 65 72 0d 65 78 69 74 20 | 72 65 70 65 61 74 0d 65 |er.exit |repeat.e|
|00002140| 6c 73 65 20 69 66 20 28 | 28 74 65 73 74 2d 62 61 |lse if (|(test-ba|
|00002150| 73 65 29 20 3c 20 30 29 | 20 6f 72 20 28 28 74 65 |se) < 0)| or ((te|
|00002160| 73 74 2d 62 61 73 65 29 | 20 3e 20 39 29 20 74 68 |st-base)| > 9) th|
|00002170| 65 6e 0d 70 75 74 20 69 | 20 69 6e 74 6f 20 69 73 |en.put i| into is|
|00002180| 61 6e 75 6d 62 65 72 0d | 65 78 69 74 20 72 65 70 |anumber.|exit rep|
|00002190| 65 61 74 0d 65 6c 73 65 | 0d 70 75 74 20 74 72 75 |eat.else|.put tru|
|000021a0| 65 20 69 6e 74 6f 20 6e | 75 6d 62 65 72 53 74 61 |e into n|umberSta|
|000021b0| 72 74 65 64 0d 65 6e 64 | 20 69 66 0d 65 6e 64 20 |rted.end| if.end |
|000021c0| 69 66 0d 65 6e 64 20 72 | 65 70 65 61 74 0d 72 65 |if.end r|epeat.re|
|000021d0| 74 75 72 6e 20 69 73 61 | 6e 75 6d 62 65 72 0d 65 |turn isa|number.e|
|000021e0| 6e 64 20 6e 75 6d 62 65 | 72 56 65 72 69 66 79 0d |nd numbe|rVerify.|
|000021f0| 0d 2d 2d a5 2d a5 2d a5 | 2d a5 2d a5 2d a5 2d a5 |.--.-.-.|-.-.-.-.|
|00002200| 2d a5 2d a5 2d a5 2d a5 | 2d a5 2d a5 2d a5 2d a5 |-.-.-.-.|-.-.-.-.|
|00002210| 2d a5 2d a5 2d a5 2d a5 | 2d a5 2d a5 2d a5 2d a5 |-.-.-.-.|-.-.-.-.|
|00002220| 2d a5 2d a5 2d a5 2d a5 | 2d a5 2d a5 2d a5 2d a5 |-.-.-.-.|-.-.-.-.|
|00002230| 2d a5 2d a5 2d a5 2d 2d | 0d 2d 2d 20 20 20 20 20 |-.-.-.--|.--     |
|00002240| 20 20 20 20 20 20 20 20 | 20 20 20 20 43 6f 70 79 |        |    Copy|
|00002250| 72 69 67 68 74 20 31 39 | 38 38 20 49 6e 64 69 76 |right 19|88 Indiv|
|00002260| 69 64 75 61 6c 20 53 6f | 66 74 77 61 72 65 0d 2d |idual So|ftware.-|
|00002270| 2d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 43 |-       |       C|
|00002280| 72 65 61 74 65 64 20 62 | 79 20 49 4e 54 45 52 41 |reated b|y INTERA|
|00002290| 43 54 49 56 45 20 44 45 | 53 49 47 4e 20 6f 66 20 |CTIVE DE|SIGN of |
|000022a0| 53 65 61 74 74 6c 65 0d | 2d 2d 20 20 20 20 20 20 |Seattle.|--      |
|000022b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000022c0| 20 20 41 6c 6c 20 52 69 | 67 68 74 73 20 52 65 73 |  All Ri|ghts Res|
|000022d0| 65 72 76 65 64 0d 2d 2d | a5 2d a5 2d a5 2d a5 2d |erved.--|.-.-.-.-|
|000022e0| a5 2d a5 2d a5 2d a5 2d | a5 2d a5 2d a5 2d a5 2d |.-.-.-.-|.-.-.-.-|
|000022f0| a5 2d a5 2d a5 2d a5 2d | a5 2d a5 2d a5 2d a5 2d |.-.-.-.-|.-.-.-.-|
|00002300| a5 2d a5 2d a5 2d a5 2d | a5 2d a5 2d a5 2d a5 2d |.-.-.-.-|.-.-.-.-|
|00002310| a5 2d a5 2d a5 2d a5 2d | a5 2d a5 2d 2d 0d 66 75 |.-.-.-.-|.-.--.fu|
|00002320| 6e 63 74 69 6f 6e 20 64 | 61 74 65 56 65 72 69 66 |nction d|ateVerif|
|00002330| 79 20 63 6f 6e 74 61 69 | 6e 65 72 0d 70 75 74 20 |y contai|ner.put |
|00002340| 74 68 65 20 63 68 61 72 | 54 6f 4e 75 6d 20 6f 66 |the char|ToNum of|
|00002350| 20 22 30 22 20 69 6e 74 | 6f 20 62 61 73 65 0d 70 | "0" int|o base.p|
|00002360| 75 74 20 74 68 65 20 63 | 68 61 72 54 6f 4e 75 6d |ut the c|harToNum|
|00002370| 20 6f 66 20 22 2f 22 20 | 69 6e 74 6f 20 61 73 6c | of "/" |into asl|
|00002380| 61 73 68 0d 70 75 74 20 | 65 6d 70 74 79 20 69 6e |ash.put |empty in|
|00002390| 74 6f 20 69 73 61 64 61 | 74 65 0d 70 75 74 20 30 |to isada|te.put 0|
|000023a0| 20 69 6e 74 6f 20 73 74 | 61 74 65 0d 70 75 74 20 | into st|ate.put |
|000023b0| 30 20 69 6e 74 6f 20 74 | 68 65 4d 6f 6e 74 68 0d |0 into t|heMonth.|
|000023c0| 70 75 74 20 30 20 69 6e | 74 6f 20 74 68 65 59 65 |put 0 in|to theYe|
|000023d0| 61 72 0d 70 75 74 20 30 | 20 69 6e 74 6f 20 74 68 |ar.put 0| into th|
|000023e0| 65 44 61 79 0d 72 65 70 | 65 61 74 20 77 69 74 68 |eDay.rep|eat with|
|000023f0| 20 69 20 3d 20 31 20 74 | 6f 20 74 68 65 20 6e 75 | i = 1 t|o the nu|
|00002400| 6d 62 65 72 20 6f 66 20 | 63 68 61 72 61 63 74 65 |mber of |characte|
|00002410| 72 73 20 69 6e 20 6c 69 | 6e 65 20 31 20 6f 66 20 |rs in li|ne 1 of |
|00002420| 63 6f 6e 74 61 69 6e 65 | 72 0d 70 75 74 20 28 74 |containe|r.put (t|
|00002430| 68 65 20 63 68 61 72 54 | 6f 4e 75 6d 20 6f 66 20 |he charT|oNum of |
|00002440| 63 68 61 72 20 69 20 6f | 66 20 63 6f 6e 74 61 69 |char i o|f contai|
|00002450| 6e 65 72 29 20 69 6e 74 | 6f 20 74 65 73 74 0d 69 |ner) int|o test.i|
|00002460| 66 20 73 74 61 74 65 20 | 69 73 20 30 20 74 68 65 |f state |is 0 the|
|00002470| 6e 0d 69 66 20 28 28 74 | 65 73 74 2d 62 61 73 65 |n.if ((t|est-base|
|00002480| 29 20 3e 3d 20 30 29 20 | 61 6e 64 20 28 28 74 65 |) >= 0) |and ((te|
|00002490| 73 74 2d 62 61 73 65 29 | 20 3c 3d 20 39 29 20 74 |st-base)| <= 9) t|
|000024a0| 68 65 6e 0d 70 75 74 20 | 28 74 68 65 4d 6f 6e 74 |hen.put |(theMont|
|000024b0| 68 2a 31 30 20 2b 20 28 | 74 65 73 74 2d 62 61 73 |h*10 + (|test-bas|
|000024c0| 65 29 29 20 69 6e 74 6f | 20 74 68 65 4d 6f 6e 74 |e)) into| theMont|
|000024d0| 68 0d 69 66 20 74 68 65 | 4d 6f 6e 74 68 20 3e 20 |h.if the|Month > |
|000024e0| 31 32 20 74 68 65 6e 0d | 70 75 74 20 74 68 65 4d |12 then.|put theM|
|000024f0| 6f 6e 74 68 20 26 26 20 | 22 69 73 20 61 6e 20 69 |onth && |"is an i|
|00002500| 6c 6c 65 67 61 6c 20 6d | 6f 6e 74 68 2e 22 20 69 |llegal m|onth." i|
|00002510| 6e 74 6f 20 69 73 61 64 | 61 74 65 0d 72 65 74 75 |nto isad|ate.retu|
|00002520| 72 6e 20 69 73 61 64 61 | 74 65 0d 65 6e 64 20 69 |rn isada|te.end i|
|00002530| 66 0d 65 6c 73 65 20 69 | 66 20 74 65 73 74 20 69 |f.else i|f test i|
|00002540| 73 20 61 73 6c 61 73 68 | 20 74 68 65 6e 0d 69 66 |s aslash| then.if|
|00002550| 20 74 68 65 4d 6f 6e 74 | 68 20 3e 20 30 20 74 68 | theMont|h > 0 th|
|00002560| 65 6e 0d 70 75 74 20 31 | 20 69 6e 74 6f 20 73 74 |en.put 1| into st|
|00002570| 61 74 65 0d 65 6c 73 65 | 0d 70 75 74 20 22 4d 6f |ate.else|.put "Mo|
|00002580| 6e 74 68 20 69 73 20 6d | 69 73 73 69 6e 67 2e 22 |nth is m|issing."|
|00002590| 20 69 6e 74 6f 20 69 73 | 61 64 61 74 65 0d 72 65 | into is|adate.re|
|000025a0| 74 75 72 6e 20 69 73 61 | 64 61 74 65 0d 65 6e 64 |turn isa|date.end|
|000025b0| 20 69 66 0d 65 6c 73 65 | 0d 70 75 74 20 22 49 6c | if.else|.put "Il|
|000025c0| 6c 65 67 61 6c 20 63 68 | 61 72 61 63 74 65 72 20 |legal ch|aracter |
|000025d0| 69 6e 20 6d 6f 6e 74 68 | 2e 22 20 69 6e 74 6f 20 |in month|." into |
|000025e0| 69 73 61 64 61 74 65 0d | 72 65 74 75 72 6e 20 69 |isadate.|return i|
|000025f0| 73 61 64 61 74 65 0d 65 | 6e 64 20 69 66 0d 65 6c |sadate.e|nd if.el|
|00002600| 73 65 20 69 66 20 73 74 | 61 74 65 20 69 73 20 31 |se if st|ate is 1|
|00002610| 20 74 68 65 6e 0d 69 66 | 20 28 28 74 65 73 74 2d | then.if| ((test-|
|00002620| 62 61 73 65 29 20 3e 3d | 20 30 29 20 61 6e 64 20 |base) >=| 0) and |
|00002630| 28 28 74 65 73 74 2d 62 | 61 73 65 29 20 3c 3d 20 |((test-b|ase) <= |
|00002640| 39 29 20 74 68 65 6e 0d | 70 75 74 20 74 68 65 44 |9) then.|put theD|
|00002650| 61 79 20 2a 20 31 30 20 | 2b 20 28 74 65 73 74 2d |ay * 10 |+ (test-|
|00002660| 62 61 73 65 29 20 69 6e | 74 6f 20 74 68 65 44 61 |base) in|to theDa|
|00002670| 79 0d 69 66 20 74 68 65 | 44 61 79 20 3e 20 33 31 |y.if the|Day > 31|
|00002680| 20 74 68 65 6e 0d 70 75 | 74 20 74 68 65 44 61 79 | then.pu|t theDay|
|00002690| 20 26 26 20 22 69 73 20 | 61 6e 20 69 6c 6c 65 67 | && "is |an illeg|
|000026a0| 61 6c 20 64 61 79 2e 22 | 20 69 6e 74 6f 20 69 73 |al day."| into is|
|000026b0| 61 64 61 74 65 0d 72 65 | 74 75 72 6e 20 69 73 61 |adate.re|turn isa|
|000026c0| 64 61 74 65 0d 65 6c 73 | 65 20 69 66 20 74 68 65 |date.els|e if the|
|000026d0| 44 61 79 20 3e 20 33 30 | 20 74 68 65 6e 0d 69 66 |Day > 30| then.if|
|000026e0| 20 74 68 65 4d 6f 6e 74 | 68 20 69 73 20 39 20 6f | theMont|h is 9 o|
|000026f0| 72 20 74 68 65 4d 6f 6e | 74 68 20 69 73 20 34 20 |r theMon|th is 4 |
|00002700| 6f 72 20 c2 0d 74 68 65 | 4d 6f 6e 74 68 20 69 73 |or ..the|Month is|
|00002710| 20 36 20 6f 72 20 74 68 | 65 4d 6f 6e 74 68 20 69 | 6 or th|eMonth i|
|00002720| 73 20 31 31 20 6f 72 20 | 74 68 65 4d 6f 6e 74 68 |s 11 or |theMonth|
|00002730| 20 69 73 20 32 20 74 68 | 65 6e 0d 70 75 74 20 74 | is 2 th|en.put t|
|00002740| 68 65 44 61 79 20 26 26 | 20 22 69 73 20 61 6e 20 |heDay &&| "is an |
|00002750| 69 6c 6c 65 67 61 6c 20 | 64 61 79 2c 20 74 68 69 |illegal |day, thi|
|00002760| 73 20 6d 6f 6e 74 68 2e | 22 20 69 6e 74 6f 20 69 |s month.|" into i|
|00002770| 73 61 64 61 74 65 0d 72 | 65 74 75 72 6e 20 69 73 |sadate.r|eturn is|
|00002780| 61 64 61 74 65 0d 65 6e | 64 20 69 66 0d 65 6c 73 |adate.en|d if.els|
|00002790| 65 20 69 66 20 74 68 65 | 44 61 79 20 3e 20 32 39 |e if the|Day > 29|
|000027a0| 20 61 6e 64 20 74 68 65 | 4d 6f 6e 74 68 20 69 73 | and the|Month is|
|000027b0| 20 32 20 74 68 65 6e 0d | 70 75 74 20 74 68 65 44 | 2 then.|put theD|
|000027c0| 61 79 20 26 26 20 22 69 | 73 20 61 6e 20 69 6c 6c |ay && "i|s an ill|
|000027d0| 65 67 61 6c 20 64 61 79 | 2c 20 74 68 69 73 20 6d |egal day|, this m|
|000027e0| 6f 6e 74 68 2e 22 20 69 | 6e 74 6f 20 69 73 61 64 |onth." i|nto isad|
|000027f0| 61 74 65 0d 72 65 74 75 | 72 6e 20 69 73 61 64 61 |ate.retu|rn isada|
|00002800| 74 65 0d 65 6e 64 20 69 | 66 0d 65 6c 73 65 20 69 |te.end i|f.else i|
|00002810| 66 20 74 65 73 74 20 69 | 73 20 61 73 6c 61 73 68 |f test i|s aslash|
|00002820| 20 74 68 65 6e 0d 69 66 | 20 74 68 65 44 61 79 20 | then.if| theDay |
|00002830| 3e 20 30 20 74 68 65 6e | 0d 70 75 74 20 32 20 69 |> 0 then|.put 2 i|
|00002840| 6e 74 6f 20 73 74 61 74 | 65 0d 65 6c 73 65 0d 70 |nto stat|e.else.p|
|00002850| 75 74 20 22 44 61 79 20 | 69 73 20 6d 69 73 73 69 |ut "Day |is missi|
|00002860| 6e 67 2e 22 20 69 6e 74 | 6f 20 69 73 61 64 61 74 |ng." int|o isadat|
|00002870| 65 0d 72 65 74 75 72 6e | 20 69 73 61 64 61 74 65 |e.return| isadate|
|00002880| 0d 65 6e 64 20 69 66 0d | 65 6c 73 65 0d 70 75 74 |.end if.|else.put|
|00002890| 20 22 49 6c 6c 65 67 61 | 6c 20 63 68 61 72 61 63 | "Illega|l charac|
|000028a0| 74 65 72 20 69 6e 20 64 | 61 79 2e 22 20 69 6e 74 |ter in d|ay." int|
|000028b0| 6f 20 69 73 61 64 61 74 | 65 0d 72 65 74 75 72 6e |o isadat|e.return|
|000028c0| 20 69 73 61 64 61 74 65 | 0d 65 6e 64 20 69 66 0d | isadate|.end if.|
|000028d0| 65 6c 73 65 20 69 66 20 | 73 74 61 74 65 20 69 73 |else if |state is|
|000028e0| 20 32 20 74 68 65 6e 0d | 69 66 20 28 28 74 65 73 | 2 then.|if ((tes|
|000028f0| 74 2d 62 61 73 65 29 20 | 3e 3d 20 30 29 20 61 6e |t-base) |>= 0) an|
|00002900| 64 20 28 28 74 65 73 74 | 2d 62 61 73 65 29 20 3c |d ((test|-base) <|
|00002910| 3d 20 39 29 20 74 68 65 | 6e 0d 70 75 74 20 28 74 |= 9) the|n.put (t|
|00002920| 68 65 59 65 61 72 20 2a | 20 31 30 20 2b 20 28 74 |heYear *| 10 + (t|
|00002930| 65 73 74 2d 62 61 73 65 | 29 29 20 69 6e 74 6f 20 |est-base|)) into |
|00002940| 74 68 65 59 65 61 72 0d | 69 66 20 74 68 65 59 65 |theYear.|if theYe|
|00002950| 61 72 20 3e 20 39 39 20 | 74 68 65 6e 0d 70 75 74 |ar > 99 |then.put|
|00002960| 20 22 59 65 61 72 20 69 | 73 20 74 6f 6f 20 62 69 | "Year i|s too bi|
|00002970| 67 2e 22 69 6e 74 6f 20 | 69 73 61 64 61 74 65 0d |g."into |isadate.|
|00002980| 72 65 74 75 72 6e 20 69 | 73 61 64 61 74 65 0d 65 |return i|sadate.e|
|00002990| 6e 64 20 69 66 0d 65 6c | 73 65 0d 70 75 74 20 22 |nd if.el|se.put "|
|000029a0| 49 6c 6c 65 67 61 6c 20 | 63 68 61 72 61 63 74 65 |Illegal |characte|
|000029b0| 72 20 69 6e 20 79 65 61 | 72 2e 22 20 69 6e 74 6f |r in yea|r." into|
|000029c0| 20 69 73 61 64 61 74 65 | 0d 72 65 74 75 72 6e 20 | isadate|.return |
|000029d0| 69 73 61 64 61 74 65 0d | 65 6e 64 20 69 66 0d 65 |isadate.|end if.e|
|000029e0| 6e 64 20 69 66 0d 65 6e | 64 20 72 65 70 65 61 74 |nd if.en|d repeat|
|000029f0| 0d 69 66 20 74 68 65 4d | 6f 6e 74 68 20 69 73 20 |.if theM|onth is |
|00002a00| 30 20 74 68 65 6e 0d 70 | 75 74 20 22 4d 6f 6e 74 |0 then.p|ut "Mont|
|00002a10| 68 2c 20 64 61 79 2c 20 | 61 6e 64 20 79 65 61 72 |h, day, |and year|
|00002a20| 20 61 72 65 20 6d 69 73 | 73 69 6e 67 2e 22 20 69 | are mis|sing." i|
|00002a30| 6e 74 6f 20 69 73 61 64 | 61 74 65 0d 65 6c 73 65 |nto isad|ate.else|
|00002a40| 20 69 66 20 74 68 65 44 | 61 79 20 69 73 20 30 20 | if theD|ay is 0 |
|00002a50| 74 68 65 6e 0d 70 75 74 | 20 22 44 61 79 20 61 6e |then.put| "Day an|
|00002a60| 64 20 79 65 61 72 20 61 | 72 65 20 6d 69 73 73 69 |d year a|re missi|
|00002a70| 6e 67 2e 22 20 69 6e 74 | 6f 20 69 73 61 64 61 74 |ng." int|o isadat|
|00002a80| 65 0d 65 6c 73 65 20 69 | 66 20 74 68 65 59 65 61 |e.else i|f theYea|
|00002a90| 72 20 69 73 20 30 20 74 | 68 65 6e 0d 70 75 74 20 |r is 0 t|hen.put |
|00002aa0| 22 59 65 61 72 20 69 73 | 20 6d 69 73 73 69 6e 67 |"Year is| missing|
|00002ab0| 2e 22 20 69 6e 74 6f 20 | 69 73 61 64 61 74 65 0d |." into |isadate.|
|00002ac0| 65 6e 64 20 69 66 0d 72 | 65 74 75 72 6e 20 69 73 |end if.r|eturn is|
|00002ad0| 61 64 61 74 65 0d 65 6e | 64 20 64 61 74 65 56 65 |adate.en|d dateVe|
|00002ae0| 72 69 66 79 0d 0d 6f 6e | 20 63 72 65 61 74 65 4d |rify..on| createM|
|00002af0| 65 6e 75 0d 69 66 20 74 | 68 65 72 65 20 69 73 20 |enu.if t|here is |
|00002b00| 61 20 6d 65 6e 75 20 22 | 44 57 22 20 74 68 65 6e |a menu "|DW" then|
|00002b10| 20 65 78 69 74 20 63 72 | 65 61 74 65 4d 65 6e 75 | exit cr|eateMenu|
|00002b20| 0d 63 72 65 61 74 65 20 | 6d 65 6e 75 20 22 44 57 |.create |menu "DW|
|00002b30| 22 0d 70 75 74 20 63 72 | 65 61 74 65 4d 65 6e 75 |".put cr|eateMenu|
|00002b40| 49 74 65 6d 73 28 29 20 | 69 6e 74 6f 20 6d 65 6e |Items() |into men|
|00002b50| 75 20 22 44 57 22 20 77 | 69 74 68 20 6d 65 6e 75 |u "DW" w|ith menu|
|00002b60| 4d 73 67 20 63 72 65 61 | 74 65 4d 65 6e 75 4d 73 |Msg crea|teMenuMs|
|00002b70| 67 73 28 29 0d 67 65 74 | 20 63 64 20 66 69 65 6c |gs().get| cd fiel|
|00002b80| 64 20 22 65 64 69 74 4d | 6f 64 65 22 20 6f 66 20 |d "editM|ode" of |
|00002b90| 63 61 72 64 20 22 6f 70 | 65 6e 69 6e 67 20 63 61 |card "op|ening ca|
|00002ba0| 72 64 22 0d 69 66 20 69 | 74 20 69 73 20 74 72 75 |rd".if i|t is tru|
|00002bb0| 65 0d 74 68 65 6e 0d 73 | 65 74 20 63 68 65 63 6b |e.then.s|et check|
|00002bc0| 4d 61 72 6b 20 6f 66 20 | 6d 65 6e 75 49 74 65 6d |Mark of |menuItem|
|00002bd0| 20 32 20 6f 66 20 6d 65 | 6e 75 20 22 44 57 22 20 | 2 of me|nu "DW" |
|00002be0| 74 6f 20 74 72 75 65 0d | 65 6c 73 65 0d 73 65 74 |to true.|else.set|
|00002bf0| 20 63 68 65 63 6b 4d 61 | 72 6b 20 6f 66 20 6d 65 | checkMa|rk of me|
|00002c00| 6e 75 49 74 65 6d 20 32 | 20 6f 66 20 6d 65 6e 75 |nuItem 2| of menu|
|00002c10| 20 22 44 57 22 20 74 6f | 20 66 61 6c 73 65 0d 65 | "DW" to| false.e|
|00002c20| 6e 64 20 69 66 0d 0d 67 | 65 74 20 63 64 20 66 69 |nd if..g|et cd fi|
|00002c30| 65 6c 64 20 22 46 61 6e | 63 79 4f 70 65 6e 69 6e |eld "Fan|cyOpenin|
|00002c40| 67 22 20 6f 66 20 63 61 | 72 64 20 22 6f 70 65 6e |g" of ca|rd "open|
|00002c50| 69 6e 67 20 63 61 72 64 | 22 0d 69 66 20 69 74 20 |ing card|".if it |
|00002c60| 69 73 20 74 72 75 65 0d | 74 68 65 6e 0d 73 65 74 |is true.|then.set|
|00002c70| 20 63 68 65 63 6b 4d 61 | 72 6b 20 6f 66 20 6d 65 | checkMa|rk of me|
|00002c80| 6e 75 49 74 65 6d 20 31 | 20 6f 66 20 6d 65 6e 75 |nuItem 1| of menu|
|00002c90| 20 22 44 57 22 20 74 6f | 20 74 72 75 65 0d 65 6c | "DW" to| true.el|
|00002ca0| 73 65 0d 73 65 74 20 63 | 68 65 63 6b 4d 61 72 6b |se.set c|heckMark|
|00002cb0| 20 6f 66 20 6d 65 6e 75 | 49 74 65 6d 20 31 20 6f | of menu|Item 1 o|
|00002cc0| 66 20 6d 65 6e 75 20 22 | 44 57 22 20 74 6f 20 66 |f menu "|DW" to f|
|00002cd0| 61 6c 73 65 0d 65 6e 64 | 20 69 66 0d 65 6e 64 20 |alse.end| if.end |
|00002ce0| 63 72 65 61 74 65 4d 65 | 6e 75 0d 0d 66 75 6e 63 |createMe|nu..func|
|00002cf0| 74 69 6f 6e 20 63 72 65 | 61 74 65 4d 65 6e 75 49 |tion cre|ateMenuI|
|00002d00| 74 65 6d 73 0d 72 65 74 | 75 72 6e 20 22 46 61 6e |tems.ret|urn "Fan|
|00002d10| 63 79 20 4f 70 65 6e 69 | 6e 67 22 20 26 20 72 65 |cy Openi|ng" & re|
|00002d20| 74 75 72 6e 20 26 20 c2 | 0d 22 45 64 69 74 20 4d |turn & .|."Edit M|
|00002d30| 6f 64 65 22 20 26 20 72 | 65 74 75 72 6e 20 26 20 |ode" & r|eturn & |
|00002d40| c2 0d 22 49 6e 69 74 20 | 53 74 61 63 6b 22 20 26 |.."Init |Stack" &|
|00002d50| 20 72 65 74 75 72 6e 20 | 26 20 22 49 6e 69 74 20 | return |& "Init |
|00002d60| 43 61 72 64 22 0d 65 6e | 64 20 63 72 65 61 74 65 |Card".en|d create|
|00002d70| 4d 65 6e 75 49 74 65 6d | 73 0d 0d 66 75 6e 63 74 |MenuItem|s..funct|
|00002d80| 69 6f 6e 20 63 72 65 61 | 74 65 4d 65 6e 75 4d 73 |ion crea|teMenuMs|
|00002d90| 67 73 0d 72 65 74 75 72 | 6e 20 22 74 6f 67 67 6c |gs.retur|n "toggl|
|00002da0| 65 46 61 6e 63 79 4f 70 | 65 6e 69 6e 67 22 20 26 |eFancyOp|ening" &|
|00002db0| 20 72 65 74 75 72 6e 20 | 26 20 c2 0d 22 74 6f 67 | return |& .."tog|
|00002dc0| 67 6c 65 45 64 69 74 4d | 6f 64 65 22 20 26 20 72 |gleEditM|ode" & r|
|00002dd0| 65 74 75 72 6e 20 26 20 | c2 0d 22 69 6e 69 74 53 |eturn & |.."initS|
|00002de0| 74 61 63 6b 22 20 26 20 | 72 65 74 75 72 6e 20 26 |tack" & |return &|
|00002df0| 20 22 64 6f 49 6e 69 74 | 43 61 72 64 22 0d 65 6e | "doInit|Card".en|
|00002e00| 64 20 63 72 65 61 74 65 | 4d 65 6e 75 4d 73 67 73 |d create|MenuMsgs|
|00002e10| 0d 0d 6f 6e 20 74 6f 67 | 67 6c 65 46 61 6e 63 79 |..on tog|gleFancy|
|00002e20| 4f 70 65 6e 69 6e 67 0d | 70 75 74 20 22 4f 70 65 |Opening.|put "Ope|
|00002e30| 6e 69 6e 67 20 43 61 72 | 64 22 20 69 6e 74 6f 20 |ning Car|d" into |
|00002e40| 63 61 72 64 4e 61 6d 65 | 0d 67 65 74 20 63 64 20 |cardName|.get cd |
|00002e50| 66 69 65 6c 64 20 22 46 | 61 6e 63 79 4f 70 65 6e |field "F|ancyOpen|
|00002e60| 69 6e 67 22 20 6f 66 20 | 63 61 72 64 20 63 61 72 |ing" of |card car|
|00002e70| 64 4e 61 6d 65 0d 69 66 | 20 69 74 20 69 73 20 74 |dName.if| it is t|
|00002e80| 72 75 65 0d 74 68 65 6e | 0d 73 65 74 20 63 68 65 |rue.then|.set che|
|00002e90| 63 6b 4d 61 72 6b 20 6f | 66 20 6d 65 6e 75 49 74 |ckMark o|f menuIt|
|00002ea0| 65 6d 20 31 20 6f 66 20 | 6d 65 6e 75 20 22 44 57 |em 1 of |menu "DW|
|00002eb0| 22 20 74 6f 20 66 61 6c | 73 65 0d 70 75 74 20 66 |" to fal|se.put f|
|00002ec0| 61 6c 73 65 20 69 6e 74 | 6f 20 63 64 20 66 69 65 |alse int|o cd fie|
|00002ed0| 6c 64 20 22 66 61 6e 63 | 79 4f 70 65 6e 69 6e 67 |ld "fanc|yOpening|
|00002ee0| 22 20 6f 66 20 63 61 72 | 64 20 63 61 72 64 4e 61 |" of car|d cardNa|
|00002ef0| 6d 65 0d 65 6c 73 65 0d | 73 65 74 20 63 68 65 63 |me.else.|set chec|
|00002f00| 6b 4d 61 72 6b 20 6f 66 | 20 6d 65 6e 75 49 74 65 |kMark of| menuIte|
|00002f10| 6d 20 31 20 6f 66 20 6d | 65 6e 75 20 22 44 57 22 |m 1 of m|enu "DW"|
|00002f20| 20 74 6f 20 74 72 75 65 | 0d 70 75 74 20 74 72 75 | to true|.put tru|
|00002f30| 65 20 69 6e 74 6f 20 63 | 64 20 66 69 65 6c 64 20 |e into c|d field |
|00002f40| 22 66 61 6e 63 79 4f 70 | 65 6e 69 6e 67 22 20 6f |"fancyOp|ening" o|
|00002f50| 66 20 63 61 72 64 20 63 | 61 72 64 4e 61 6d 65 0d |f card c|ardName.|
|00002f60| 65 6e 64 20 69 66 0d 65 | 6e 64 20 74 6f 67 67 6c |end if.e|nd toggl|
|00002f70| 65 46 61 6e 63 79 4f 70 | 65 6e 69 6e 67 0d 0d 6f |eFancyOp|ening..o|
|00002f80| 6e 20 74 6f 67 67 6c 65 | 45 64 69 74 4d 6f 64 65 |n toggle|EditMode|
|00002f90| 0d 70 75 74 20 22 4f 70 | 65 6e 69 6e 67 20 43 61 |.put "Op|ening Ca|
|00002fa0| 72 64 22 20 69 6e 74 6f | 20 63 61 72 64 4e 61 6d |rd" into| cardNam|
|00002fb0| 65 0d 67 65 74 20 63 64 | 20 66 69 65 6c 64 20 22 |e.get cd| field "|
|00002fc0| 65 64 69 74 4d 6f 64 65 | 22 20 6f 66 20 63 61 72 |editMode|" of car|
|00002fd0| 64 20 63 61 72 64 4e 61 | 6d 65 0d 69 66 20 69 74 |d cardNa|me.if it|
|00002fe0| 20 69 73 20 74 72 75 65 | 0d 74 68 65 6e 0d 73 65 | is true|.then.se|
|00002ff0| 74 20 63 68 65 63 6b 4d | 61 72 6b 20 6f 66 20 6d |t checkM|ark of m|
|00003000| 65 6e 75 49 74 65 6d 20 | 32 20 6f 66 20 6d 65 6e |enuItem |2 of men|
|00003010| 75 20 22 44 57 22 20 74 | 6f 20 66 61 6c 73 65 0d |u "DW" t|o false.|
|00003020| 70 75 74 20 66 61 6c 73 | 65 20 69 6e 74 6f 20 63 |put fals|e into c|
|00003030| 64 20 66 69 65 6c 64 20 | 22 65 64 69 74 4d 6f 64 |d field |"editMod|
|00003040| 65 22 20 6f 66 20 63 61 | 72 64 20 63 61 72 64 4e |e" of ca|rd cardN|
|00003050| 61 6d 65 0d 65 64 69 74 | 4d 6f 64 65 28 74 72 75 |ame.edit|Mode(tru|
|00003060| 65 29 0d 65 6c 73 65 0d | 73 65 74 20 63 68 65 63 |e).else.|set chec|
|00003070| 6b 4d 61 72 6b 20 6f 66 | 20 6d 65 6e 75 49 74 65 |kMark of| menuIte|
|00003080| 6d 20 32 20 6f 66 20 6d | 65 6e 75 20 22 44 57 22 |m 2 of m|enu "DW"|
|00003090| 20 74 6f 20 74 72 75 65 | 0d 70 75 74 20 74 72 75 | to true|.put tru|
|000030a0| 65 20 69 6e 74 6f 20 63 | 64 20 66 69 65 6c 64 20 |e into c|d field |
|000030b0| 22 65 64 69 74 4d 6f 64 | 65 22 20 6f 66 20 63 61 |"editMod|e" of ca|
|000030c0| 72 64 20 63 61 72 64 4e | 61 6d 65 0d 65 64 69 74 |rd cardN|ame.edit|
|000030d0| 4d 6f 64 65 28 66 61 6c | 73 65 29 0d 65 6e 64 20 |Mode(fal|se).end |
|000030e0| 69 66 0d 65 6e 64 20 74 | 6f 67 67 6c 65 45 64 69 |if.end t|oggleEdi|
|000030f0| 74 4d 6f 64 65 0d 0d 6f | 6e 20 67 65 74 54 61 70 |tMode..o|n getTap|
|00003100| 65 44 61 74 61 0d 67 6c | 6f 62 61 6c 20 6e 75 6d |eData.gl|obal num|
|00003110| 5f 65 70 69 73 6f 64 65 | 73 2c 20 74 69 74 6c 65 |_episode|s, title|
|00003120| 2c 20 72 75 6e 6e 69 6e | 67 54 69 6d 65 2c 20 70 |, runnin|gTime, p|
|00003130| 72 6f 64 75 63 74 69 6f | 6e 43 6f 64 65 2c 20 64 |roductio|nCode, d|
|00003140| 6f 63 74 6f 72 2c 20 73 | 65 61 73 6f 6e 2c 20 74 |octor, s|eason, t|
|00003150| 61 70 65 4e 75 6d 62 65 | 72 2c 20 73 70 65 65 64 |apeNumbe|r, speed|
|00003160| 2c 20 61 75 64 69 6f 2c | 20 71 75 61 6c 69 74 79 |, audio,| quality|
|00003170| 0d 0d 2d 2d 73 65 74 20 | 63 75 72 73 6f 72 20 74 |..--set |cursor t|
|00003180| 6f 20 62 75 73 79 0d 74 | 61 72 64 69 73 43 75 72 |o busy.t|ardisCur|
|00003190| 73 6f 72 0d 70 75 74 20 | 66 69 65 6c 64 20 22 74 |sor.put |field "t|
|000031a0| 69 74 6c 65 22 20 26 20 | 72 65 74 75 72 6e 20 61 |itle" & |return a|
|000031b0| 66 74 65 72 20 74 69 74 | 6c 65 0d 70 75 74 20 66 |fter tit|le.put f|
|000031c0| 69 65 6c 64 20 22 53 74 | 6f 72 79 20 4c 65 6e 67 |ield "St|ory Leng|
|000031d0| 74 68 22 20 26 20 72 65 | 74 75 72 6e 20 61 66 74 |th" & re|turn aft|
|000031e0| 65 72 20 52 75 6e 6e 69 | 6e 67 54 69 6d 65 0d 70 |er Runni|ngTime.p|
|000031f0| 75 74 20 66 69 65 6c 64 | 20 22 50 72 6f 64 75 63 |ut field| "Produc|
|00003200| 74 69 6f 6e 20 63 6f 64 | 65 22 20 26 20 72 65 74 |tion cod|e" & ret|
|00003210| 75 72 6e 20 61 66 74 65 | 72 20 50 72 6f 64 75 63 |urn afte|r Produc|
|00003220| 74 69 6f 6e 43 6f 64 65 | 0d 70 75 74 20 66 69 65 |tionCode|.put fie|
|00003230| 6c 64 20 22 64 6f 63 74 | 6f 72 22 20 26 20 72 65 |ld "doct|or" & re|
|00003240| 74 75 72 6e 20 61 66 74 | 65 72 20 44 6f 63 74 6f |turn aft|er Docto|
|00003250| 72 0d 70 75 74 20 66 69 | 65 6c 64 20 22 73 65 61 |r.put fi|eld "sea|
|00003260| 73 6f 6e 22 20 26 20 72 | 65 74 75 72 6e 20 61 66 |son" & r|eturn af|
|00003270| 74 65 72 20 73 65 61 73 | 6f 6e 0d 70 75 74 20 6c |ter seas|on.put l|
|00003280| 69 6e 65 20 31 20 6f 66 | 20 66 69 65 6c 64 20 22 |ine 1 of| field "|
|00003290| 74 61 70 65 20 4e 75 6d | 62 65 72 22 20 26 20 72 |tape Num|ber" & r|
|000032a0| 65 74 75 72 6e 20 61 66 | 74 65 72 20 74 61 70 65 |eturn af|ter tape|
|000032b0| 4e 75 6d 62 65 72 0d 0d | 70 75 74 20 62 6b 67 6e |Number..|put bkgn|
|000032c0| 64 20 66 69 65 6c 64 20 | 22 74 61 70 65 20 73 70 |d field |"tape sp|
|000032d0| 65 65 64 22 20 26 20 72 | 65 74 75 72 6e 20 61 66 |eed" & r|eturn af|
|000032e0| 74 65 72 20 73 70 65 65 | 64 0d 70 75 74 20 62 6b |ter spee|d.put bk|
|000032f0| 67 6e 64 20 66 69 65 6c | 64 20 22 61 75 64 69 6f |gnd fiel|d "audio|
|00003300| 22 20 26 20 72 65 74 75 | 72 6e 20 61 66 74 65 72 |" & retu|rn after|
|00003310| 20 61 75 64 69 6f 0d 70 | 75 74 20 62 6b 67 6e 64 | audio.p|ut bkgnd|
|00003320| 20 66 69 65 6c 64 20 22 | 54 56 20 52 65 63 65 70 | field "|TV Recep|
|00003330| 74 69 6f 6e 22 20 26 20 | 72 65 74 75 72 6e 20 61 |tion" & |return a|
|00003340| 66 74 65 72 20 71 75 61 | 6c 69 74 79 0d 70 75 74 |fter qua|lity.put|
|00003350| 20 62 67 20 66 69 65 6c | 64 20 22 6e 75 6d 62 65 | bg fiel|d "numbe|
|00003360| 72 20 65 70 69 73 6f 64 | 65 73 22 20 26 20 72 65 |r episod|es" & re|
|00003370| 74 75 72 6e 20 61 66 74 | 65 72 20 6e 75 6d 5f 65 |turn aft|er num_e|
|00003380| 70 69 73 6f 64 65 73 0d | 65 6e 64 20 67 65 74 54 |pisodes.|end getT|
|00003390| 61 70 65 44 61 74 61 0d | 0d 6f 6e 20 69 6e 69 74 |apeData.|.on init|
|000033a0| 54 61 70 65 44 61 74 61 | 0d 67 6c 6f 62 61 6c 20 |TapeData|.global |
|000033b0| 6e 75 6d 5f 65 70 69 73 | 6f 64 65 73 2c 20 74 69 |num_epis|odes, ti|
|000033c0| 74 6c 65 2c 20 72 75 6e | 6e 69 6e 67 54 69 6d 65 |tle, run|ningTime|
|000033d0| 2c 20 70 72 6f 64 75 63 | 74 69 6f 6e 43 6f 64 65 |, produc|tionCode|
|000033e0| 2c 20 64 6f 63 74 6f 72 | 2c 20 73 65 61 73 6f 6e |, doctor|, season|
|000033f0| 2c 20 74 61 70 65 4e 75 | 6d 62 65 72 2c 20 73 70 |, tapeNu|mber, sp|
|00003400| 65 65 64 2c 20 61 75 64 | 69 6f 2c 20 71 75 61 6c |eed, aud|io, qual|
|00003410| 69 74 79 0d 0d 74 61 72 | 64 69 73 43 75 72 73 6f |ity..tar|disCurso|
|00003420| 72 0d 70 75 74 20 65 6d | 70 74 79 20 69 6e 74 6f |r.put em|pty into|
|00003430| 20 74 69 74 6c 65 0d 70 | 75 74 20 65 6d 70 74 79 | title.p|ut empty|
|00003440| 20 69 6e 74 6f 20 52 75 | 6e 6e 69 6e 67 54 69 6d | into Ru|nningTim|
|00003450| 65 0d 70 75 74 20 65 6d | 70 74 79 20 69 6e 74 6f |e.put em|pty into|
|00003460| 20 50 72 6f 64 75 63 74 | 69 6f 6e 43 6f 64 65 0d | Product|ionCode.|
|00003470| 70 75 74 20 65 6d 70 74 | 79 20 69 6e 74 6f 20 44 |put empt|y into D|
|00003480| 6f 63 74 6f 72 0d 70 75 | 74 20 65 6d 70 74 79 20 |octor.pu|t empty |
|00003490| 69 6e 74 6f 20 73 65 61 | 73 6f 6e 0d 70 75 74 20 |into sea|son.put |
|000034a0| 65 6d 70 74 79 20 69 6e | 74 6f 20 74 61 70 65 4e |empty in|to tapeN|
|000034b0| 75 6d 62 65 72 0d 0d 70 | 75 74 20 65 6d 70 74 79 |umber..p|ut empty|
|000034c0| 20 69 6e 74 6f 20 73 70 | 65 65 64 0d 70 75 74 20 | into sp|eed.put |
|000034d0| 65 6d 70 74 79 20 69 6e | 74 6f 20 61 75 64 69 6f |empty in|to audio|
|000034e0| 0d 70 75 74 20 65 6d 70 | 74 79 20 69 6e 74 6f 20 |.put emp|ty into |
|000034f0| 71 75 61 6c 69 74 79 0d | 70 75 74 20 65 6d 70 74 |quality.|put empt|
|00003500| 79 20 69 6e 74 6f 20 6e | 75 6d 5f 65 70 69 73 6f |y into n|um_episo|
|00003510| 64 65 73 0d 65 6e 64 20 | 69 6e 69 74 54 61 70 65 |des.end |initTape|
|00003520| 44 61 74 61 0d 0d 66 75 | 6e 63 74 69 6f 6e 20 66 |Data..fu|nction f|
|00003530| 6f 6e 74 53 69 7a 65 20 | 6e 75 6d 4c 69 6e 65 73 |ontSize |numLines|
|00003540| 2c 20 66 69 65 6c 64 48 | 65 69 67 68 74 0d 70 75 |, fieldH|eight.pu|
|00003550| 74 20 66 69 65 6c 64 48 | 65 69 67 68 74 20 2f 20 |t fieldH|eight / |
|00003560| 28 6e 75 6d 4c 69 6e 65 | 73 20 2a 20 31 2e 33 29 |(numLine|s * 1.3)|
|00003570| 20 69 6e 74 6f 20 66 6f | 6e 74 53 69 7a 65 0d 69 | into fo|ntSize.i|
|00003580| 66 20 72 6f 75 6e 64 28 | 66 6f 6e 74 73 69 7a 65 |f round(|fontsize|
|00003590| 29 20 3e 20 66 6f 6e 74 | 53 69 7a 65 20 74 68 65 |) > font|Size the|
|000035a0| 6e 20 70 75 74 20 66 6f | 6e 74 73 69 7a 65 20 2d |n put fo|ntsize -|
|000035b0| 20 2e 35 20 69 6e 74 6f | 20 66 6f 6e 74 73 69 7a | .5 into| fontsiz|
|000035c0| 65 0d 72 65 74 75 72 6e | 20 72 6f 75 6e 64 28 66 |e.return| round(f|
|000035d0| 6f 6e 74 53 69 7a 65 29 | 0d 65 6e 64 20 66 6f 6e |ontSize)|.end fon|
|000035e0| 74 53 69 7a 65 0d 0d 6f | 6e 20 70 72 69 6e 74 54 |tSize..o|n printT|
|000035f0| 61 70 65 20 74 68 65 54 | 61 70 65 0d 67 6c 6f 62 |ape theT|ape.glob|
|00003600| 61 6c 20 6e 75 6d 5f 65 | 70 69 73 6f 64 65 73 2c |al num_e|pisodes,|
|00003610| 20 74 69 74 6c 65 2c 20 | 72 75 6e 6e 69 6e 67 54 | title, |runningT|
|00003620| 69 6d 65 2c 20 70 72 6f | 64 75 63 74 69 6f 6e 43 |ime, pro|ductionC|
|00003630| 6f 64 65 2c 20 64 6f 63 | 74 6f 72 2c 20 73 65 61 |ode, doc|tor, sea|
|00003640| 73 6f 6e 2c 20 74 61 70 | 65 4e 75 6d 62 65 72 2c |son, tap|eNumber,|
|00003650| 20 73 70 65 65 64 2c 20 | 61 75 64 69 6f 2c 20 71 | speed, |audio, q|
|00003660| 75 61 6c 69 74 79 0d 73 | 65 74 20 6c 6f 63 6b 73 |uality.s|et locks|
|00003670| 63 72 65 65 6e 20 74 6f | 20 74 72 75 65 0d 76 69 |creen to| true.vi|
|00003680| 73 75 61 6c 20 65 66 66 | 65 63 74 20 76 65 6e 65 |sual eff|ect vene|
|00003690| 74 69 61 6e 20 62 6c 69 | 6e 64 73 20 66 61 73 74 |tian bli|nds fast|
|000036a0| 0d 67 6f 20 74 6f 20 63 | 61 72 64 20 31 20 6f 66 |.go to c|ard 1 of|
|000036b0| 20 62 61 63 6b 67 72 6f | 75 6e 64 20 22 74 61 70 | backgro|und "tap|
|000036c0| 65 20 64 61 74 61 62 61 | 73 65 22 0d 70 75 74 20 |e databa|se".put |
|000036d0| 30 20 69 6e 74 6f 20 6e | 75 6d 53 74 6f 72 69 65 |0 into n|umStorie|
|000036e0| 73 0d 70 75 74 20 30 20 | 69 6e 74 6f 20 6c 61 73 |s.put 0 |into las|
|000036f0| 74 63 61 72 64 0d 0d 72 | 65 70 65 61 74 20 66 6f |tcard..r|epeat fo|
|00003700| 72 65 76 65 72 0d 66 69 | 6e 64 20 77 68 6f 6c 65 |rever.fi|nd whole|
|00003710| 20 74 68 65 54 61 70 65 | 20 69 6e 20 62 67 20 66 | theTape| in bg f|
|00003720| 69 65 6c 64 20 22 74 61 | 70 65 20 6e 75 6d 62 65 |ield "ta|pe numbe|
|00003730| 72 22 0d 69 66 20 74 68 | 65 20 72 65 73 75 6c 74 |r".if th|e result|
|00003740| 20 69 73 20 65 6d 70 74 | 79 0d 74 68 65 6e 0d 74 | is empt|y.then.t|
|00003750| 61 72 64 69 73 43 75 72 | 73 6f 72 0d 69 66 20 74 |ardisCur|sor.if t|
|00003760| 68 65 20 6e 75 6d 62 65 | 72 20 6f 66 20 74 68 69 |he numbe|r of thi|
|00003770| 73 20 63 61 72 64 20 3c | 3d 20 6c 61 73 74 63 61 |s card <|= lastca|
|00003780| 72 64 20 74 68 65 6e 20 | 65 78 69 74 20 72 65 70 |rd then |exit rep|
|00003790| 65 61 74 0d 70 75 74 20 | 6e 75 6d 53 74 6f 72 69 |eat.put |numStori|
|000037a0| 65 73 20 2b 20 31 20 69 | 6e 74 6f 20 6e 75 6d 53 |es + 1 i|nto numS|
|000037b0| 74 6f 72 69 65 73 0d 67 | 65 74 54 61 70 65 44 61 |tories.g|etTapeDa|
|000037c0| 74 61 0d 70 75 74 20 74 | 68 65 20 6e 75 6d 62 65 |ta.put t|he numbe|
|000037d0| 72 20 6f 66 20 74 68 69 | 73 20 63 61 72 64 20 69 |r of thi|s card i|
|000037e0| 6e 74 6f 20 6c 61 73 74 | 63 61 72 64 0d 65 6e 64 |nto last|card.end|
|000037f0| 20 69 66 0d 74 61 72 64 | 69 73 43 75 72 73 6f 72 | if.tard|isCursor|
|00003800| 0d 67 6f 20 74 6f 20 6e | 65 78 74 20 63 61 72 64 |.go to n|ext card|
|00003810| 0d 65 6e 64 20 72 65 70 | 65 61 74 0d 0d 2d 2d 20 |.end rep|eat..-- |
|00003820| 70 75 74 20 22 54 68 65 | 20 6e 75 6d 62 65 72 20 |put "The| number |
|00003830| 6f 66 20 73 74 6f 72 69 | 65 73 20 6f 6e 20 74 68 |of stori|es on th|
|00003840| 69 73 20 74 61 70 65 20 | 69 73 20 22 20 26 20 6e |is tape |is " & n|
|00003850| 75 6d 53 74 6f 72 69 65 | 73 20 69 6e 74 6f 20 74 |umStorie|s into t|
|00003860| 68 65 4d 65 73 73 0d 2d | 2d 20 61 6e 73 77 65 72 |heMess.-|- answer|
|00003870| 20 74 68 65 4d 65 73 73 | 0d 0d 70 75 74 44 61 74 | theMess|..putDat|
|00003880| 61 49 6e 74 6f 50 72 69 | 6e 74 43 61 72 64 20 6e |aIntoPri|ntCard n|
|00003890| 75 6d 53 74 6f 72 69 65 | 73 0d 65 6e 64 20 70 72 |umStorie|s.end pr|
|000038a0| 69 6e 74 54 61 70 65 0d | 0d 6f 6e 20 70 75 74 44 |intTape.|.on putD|
|000038b0| 61 74 61 49 6e 74 6f 50 | 72 69 6e 74 43 61 72 64 |ataIntoP|rintCard|
|000038c0| 20 6e 75 6d 53 74 6f 72 | 69 65 73 0d 67 6c 6f 62 | numStor|ies.glob|
|000038d0| 61 6c 20 6e 75 6d 5f 65 | 70 69 73 6f 64 65 73 2c |al num_e|pisodes,|
|000038e0| 20 74 69 74 6c 65 2c 20 | 72 75 6e 6e 69 6e 67 54 | title, |runningT|
|000038f0| 69 6d 65 2c 20 70 72 6f | 64 75 63 74 69 6f 6e 43 |ime, pro|ductionC|
|00003900| 6f 64 65 2c 20 64 6f 63 | 74 6f 72 2c 20 73 65 61 |ode, doc|tor, sea|
|00003910| 73 6f 6e 2c 20 74 61 70 | 65 4e 75 6d 62 65 72 2c |son, tap|eNumber,|
|00003920| 20 73 70 65 65 64 2c 20 | 61 75 64 69 6f 2c 20 71 | speed, |audio, q|
|00003930| 75 61 6c 69 74 79 0d 0d | 70 75 74 20 22 74 61 70 |uality..|put "tap|
|00003940| 65 20 6c 61 62 65 6c 20 | 22 20 26 20 6e 75 6d 53 |e label |" & numS|
|00003950| 74 6f 72 69 65 73 20 69 | 6e 74 6f 20 63 61 72 64 |tories i|nto card|
|00003960| 4e 61 6d 65 0d 69 66 20 | 6e 75 6d 53 74 6f 72 69 |Name.if |numStori|
|00003970| 65 73 20 3e 20 32 20 74 | 68 65 6e 20 70 75 74 20 |es > 2 t|hen put |
|00003980| 22 74 61 70 65 20 6c 61 | 62 65 6c 20 33 22 20 69 |"tape la|bel 3" i|
|00003990| 6e 74 6f 20 63 61 72 64 | 4e 61 6d 65 0d 67 6f 20 |nto card|Name.go |
|000039a0| 74 6f 20 63 61 72 64 20 | 63 61 72 64 4e 61 6d 65 |to card |cardName|
|000039b0| 0d 0d 74 61 72 64 69 73 | 43 75 72 73 6f 72 0d 70 |..tardis|Cursor.p|
|000039c0| 75 74 20 73 65 61 73 6f | 6e 20 69 6e 74 6f 20 63 |ut seaso|n into c|
|000039d0| 64 20 66 69 65 6c 64 20 | 22 73 65 61 73 6f 6e 22 |d field |"season"|
|000039e0| 0d 70 75 74 20 74 69 74 | 6c 65 20 69 6e 74 6f 20 |.put tit|le into |
|000039f0| 63 64 20 66 69 65 6c 64 | 20 22 42 6f 78 20 53 69 |cd field| "Box Si|
|00003a00| 64 65 22 0d 70 75 74 20 | 74 69 74 6c 65 20 69 6e |de".put |title in|
|00003a10| 74 6f 20 63 64 20 66 69 | 65 6c 64 20 22 43 61 73 |to cd fi|eld "Cas|
|00003a20| 73 65 74 74 65 20 53 70 | 69 6e 65 22 0d 70 75 74 |sette Sp|ine".put|
|00003a30| 20 74 69 74 6c 65 20 69 | 6e 74 6f 20 63 64 20 66 | title i|nto cd f|
|00003a40| 69 65 6c 64 20 22 43 61 | 73 73 65 74 74 65 20 54 |ield "Ca|ssette T|
|00003a50| 61 70 65 22 0d 70 75 74 | 20 74 69 74 6c 65 20 69 |ape".put| title i|
|00003a60| 6e 74 6f 20 63 64 20 66 | 69 65 6c 64 20 22 42 6f |nto cd f|ield "Bo|
|00003a70| 78 20 53 70 69 6e 65 22 | 0d 0d 69 66 20 6e 75 6d |x Spine"|..if num|
|00003a80| 53 74 6f 72 69 65 73 20 | 3e 20 32 0d 74 68 65 6e |Stories |> 2.then|
|00003a90| 0d 73 65 74 20 74 68 65 | 20 74 65 78 74 73 69 7a |.set the| textsiz|
|00003aa0| 65 20 6f 66 20 63 64 20 | 66 69 65 6c 64 20 22 43 |e of cd |field "C|
|00003ab0| 61 73 73 65 74 74 65 20 | 54 61 70 65 22 20 74 6f |assette |Tape" to|
|00003ac0| 20 66 6f 6e 74 73 69 7a | 65 28 6e 75 6d 53 74 6f | fontsiz|e(numSto|
|00003ad0| 72 69 65 73 2c 35 39 29 | 0d 73 65 74 20 74 68 65 |ries,59)|.set the|
|00003ae0| 20 74 65 78 74 73 69 7a | 65 20 6f 66 20 63 64 20 | textsiz|e of cd |
|00003af0| 66 69 65 6c 64 20 22 43 | 61 73 73 65 74 74 65 20 |field "C|assette |
|00003b00| 53 70 69 6e 65 22 20 74 | 6f 20 66 6f 6e 74 73 69 |Spine" t|o fontsi|
|00003b10| 7a 65 28 6e 75 6d 53 74 | 6f 72 69 65 73 2c 35 35 |ze(numSt|ories,55|
|00003b20| 29 0d 73 65 74 20 74 68 | 65 20 74 65 78 74 73 69 |).set th|e textsi|
|00003b30| 7a 65 20 6f 66 20 63 64 | 20 66 69 65 6c 64 20 22 |ze of cd| field "|
|00003b40| 42 6f 78 20 53 70 69 6e | 65 22 20 74 6f 20 66 6f |Box Spin|e" to fo|
|00003b50| 6e 74 73 69 7a 65 28 6e | 75 6d 53 74 6f 72 69 65 |ntsize(n|umStorie|
|00003b60| 73 2c 35 37 29 0d 73 65 | 74 20 74 68 65 20 74 65 |s,57).se|t the te|
|00003b70| 78 74 73 69 7a 65 20 6f | 66 20 63 64 20 66 69 65 |xtsize o|f cd fie|
|00003b80| 6c 64 20 22 42 6f 78 20 | 53 69 64 65 22 20 74 6f |ld "Box |Side" to|
|00003b90| 20 66 6f 6e 74 73 69 7a | 65 28 6e 75 6d 53 74 6f | fontsiz|e(numSto|
|00003ba0| 72 69 65 73 2c 34 33 29 | 0d 65 6e 64 20 69 66 0d |ries,43)|.end if.|
|00003bb0| 0d 70 75 74 20 50 72 6f | 64 75 63 74 69 6f 6e 43 |.put Pro|ductionC|
|00003bc0| 6f 64 65 20 69 6e 74 6f | 20 63 64 20 66 69 65 6c |ode into| cd fiel|
|00003bd0| 64 20 22 50 72 6f 64 75 | 63 74 69 6f 6e 43 6f 64 |d "Produ|ctionCod|
|00003be0| 65 22 0d 70 75 74 20 50 | 72 6f 64 75 63 74 69 6f |e".put P|roductio|
|00003bf0| 6e 43 6f 64 65 20 69 6e | 74 6f 20 63 64 20 66 69 |nCode in|to cd fi|
|00003c00| 65 6c 64 20 22 50 72 6f | 64 75 63 74 69 6f 6e 43 |eld "Pro|ductionC|
|00003c10| 6f 64 65 4c 61 62 65 6c | 22 0d 69 66 20 6e 75 6d |odeLabel|".if num|
|00003c20| 53 74 6f 72 69 65 73 20 | 3e 20 32 0d 74 68 65 6e |Stories |> 2.then|
|00003c30| 0d 72 65 70 65 61 74 20 | 77 69 74 68 20 78 20 3d |.repeat |with x =|
|00003c40| 20 31 20 74 6f 20 74 68 | 65 20 6e 75 6d 62 65 72 | 1 to th|e number|
|00003c50| 20 6f 66 20 6c 69 6e 65 | 73 20 6f 66 20 50 72 6f | of line|s of Pro|
|00003c60| 64 75 63 74 69 6f 6e 43 | 6f 64 65 20 2d 20 31 0d |ductionC|ode - 1.|
|00003c70| 70 75 74 20 6c 69 6e 65 | 20 78 20 6f 66 20 50 72 |put line| x of Pr|
|00003c80| 6f 64 75 63 74 69 6f 6e | 43 6f 64 65 20 26 20 22 |oduction|Code & "|
|00003c90| 2c 20 22 20 61 66 74 65 | 72 20 74 65 6d 70 0d 65 |, " afte|r temp.e|
|00003ca0| 6e 64 20 72 65 70 65 61 | 74 0d 74 61 72 64 69 73 |nd repea|t.tardis|
|00003cb0| 43 75 72 73 6f 72 0d 70 | 75 74 20 74 68 65 20 6c |Cursor.p|ut the l|
|00003cc0| 61 73 74 20 6c 69 6e 65 | 20 6f 66 20 50 72 6f 64 |ast line| of Prod|
|00003cd0| 75 63 74 69 6f 6e 43 6f | 64 65 20 61 66 74 65 72 |uctionCo|de after|
|00003ce0| 20 74 65 6d 70 0d 70 75 | 74 20 74 65 6d 70 20 69 | temp.pu|t temp i|
|00003cf0| 6e 74 6f 20 63 64 20 66 | 69 65 6c 64 20 22 50 72 |nto cd f|ield "Pr|
|00003d00| 6f 64 75 63 74 69 6f 6e | 43 6f 64 65 22 0d 70 75 |oduction|Code".pu|
|00003d10| 74 20 74 65 6d 70 20 69 | 6e 74 6f 20 63 64 20 66 |t temp i|nto cd f|
|00003d20| 69 65 6c 64 20 22 50 72 | 6f 64 75 63 74 69 6f 6e |ield "Pr|oduction|
|00003d30| 43 6f 64 65 4c 61 62 65 | 6c 22 0d 65 6e 64 20 69 |CodeLabe|l".end i|
|00003d40| 66 0d 0d 70 75 74 20 74 | 61 70 65 6e 75 6d 62 65 |f..put t|apenumbe|
|00003d50| 72 20 69 6e 74 6f 20 63 | 64 20 66 69 65 6c 64 20 |r into c|d field |
|00003d60| 22 74 61 70 65 6e 75 6d | 62 65 72 22 0d 2d 2d 70 |"tapenum|ber".--p|
|00003d70| 75 74 20 64 6f 63 74 6f | 72 20 69 6e 74 6f 20 62 |ut docto|r into b|
|00003d80| 6b 67 6e 64 20 66 69 65 | 6c 64 20 22 62 6f 78 64 |kgnd fie|ld "boxd|
|00003d90| 6f 63 74 6f 72 22 0d 70 | 75 74 20 72 75 6e 6e 69 |octor".p|ut runni|
|00003da0| 6e 67 54 69 6d 65 20 69 | 6e 74 6f 20 63 64 20 66 |ngTime i|nto cd f|
|00003db0| 69 65 6c 64 20 22 72 75 | 6e 6e 69 6e 67 54 69 6d |ield "ru|nningTim|
|00003dc0| 65 22 0d 70 75 74 20 6e | 75 6d 5f 65 70 69 73 6f |e".put n|um_episo|
|00003dd0| 64 65 73 20 69 6e 74 6f | 20 63 64 20 66 69 65 6c |des into| cd fiel|
|00003de0| 64 20 22 6e 75 6d 62 65 | 72 20 65 70 69 73 6f 64 |d "numbe|r episod|
|00003df0| 65 73 22 0d 0d 74 61 72 | 64 69 73 43 75 72 73 6f |es"..tar|disCurso|
|00003e00| 72 0d 69 66 20 6c 69 6e | 65 20 31 20 6f 66 20 61 |r.if lin|e 1 of a|
|00003e10| 75 64 69 6f 20 69 73 20 | 65 6d 70 74 79 0d 74 68 |udio is |empty.th|
|00003e20| 65 6e 0d 73 65 74 20 68 | 69 6c 69 74 65 20 6f 66 |en.set h|ilite of|
|00003e30| 20 63 64 20 62 75 74 74 | 6f 6e 20 22 4d 6f 6e 6f | cd butt|on "Mono|
|00003e40| 22 20 74 6f 20 66 61 6c | 73 65 0d 73 65 74 20 68 |" to fal|se.set h|
|00003e50| 69 6c 69 74 65 20 6f 66 | 20 63 64 20 62 75 74 74 |ilite of| cd butt|
|00003e60| 6f 6e 20 22 73 74 65 72 | 65 6f 22 20 74 6f 20 66 |on "ster|eo" to f|
|00003e70| 61 6c 73 65 0d 65 6c 73 | 65 0d 70 75 74 20 6c 69 |alse.els|e.put li|
|00003e80| 6e 65 20 31 20 6f 66 20 | 61 75 64 69 6f 20 69 6e |ne 1 of |audio in|
|00003e90| 74 6f 20 61 75 64 69 6f | 0d 73 65 6e 64 20 22 6d |to audio|.send "m|
|00003ea0| 6f 75 73 65 75 70 22 20 | 74 6f 20 63 64 20 62 75 |ouseup" |to cd bu|
|00003eb0| 74 74 6f 6e 20 61 75 64 | 69 6f 0d 2d 2d 73 65 6e |tton aud|io.--sen|
|00003ec0| 64 20 22 6d 6f 75 73 65 | 75 70 22 20 74 6f 20 63 |d "mouse|up" to c|
|00003ed0| 64 20 62 75 74 74 6f 6e | 20 73 74 72 69 70 51 75 |d button| stripQu|
|00003ee0| 6f 74 65 28 61 75 64 69 | 6f 29 0d 65 6e 64 20 69 |ote(audi|o).end i|
|00003ef0| 66 0d 0d 74 61 72 64 69 | 73 43 75 72 73 6f 72 0d |f..tardi|sCursor.|
|00003f00| 69 66 20 6c 69 6e 65 20 | 31 20 6f 66 20 71 75 61 |if line |1 of qua|
|00003f10| 6c 69 74 79 20 69 73 20 | 65 6d 70 74 79 0d 74 68 |lity is |empty.th|
|00003f20| 65 6e 0d 73 65 74 20 68 | 69 6c 69 74 65 20 6f 66 |en.set h|ilite of|
|00003f30| 20 63 64 20 62 75 74 74 | 6f 6e 20 22 70 6f 6f 72 | cd butt|on "poor|
|00003f40| 22 20 74 6f 20 66 61 6c | 73 65 0d 73 65 74 20 68 |" to fal|se.set h|
|00003f50| 69 6c 69 74 65 20 6f 66 | 20 63 64 20 62 75 74 74 |ilite of| cd butt|
|00003f60| 6f 6e 20 22 67 6f 6f 64 | 22 20 74 6f 20 66 61 6c |on "good|" to fal|
|00003f70| 73 65 0d 73 65 74 20 68 | 69 6c 69 74 65 20 6f 66 |se.set h|ilite of|
|00003f80| 20 63 64 20 62 75 74 74 | 6f 6e 20 22 65 78 63 65 | cd butt|on "exce|
|00003f90| 6c 6c 65 6e 74 22 20 74 | 6f 20 66 61 6c 73 65 0d |llent" t|o false.|
|00003fa0| 65 6c 73 65 0d 70 75 74 | 20 6c 69 6e 65 20 31 20 |else.put| line 1 |
|00003fb0| 6f 66 20 71 75 61 6c 69 | 74 79 20 69 6e 74 6f 20 |of quali|ty into |
|00003fc0| 71 75 61 6c 69 74 79 0d | 2d 2d 73 65 6e 64 20 22 |quality.|--send "|
|00003fd0| 6d 6f 75 73 65 75 70 22 | 20 74 6f 20 63 64 20 62 |mouseup"| to cd b|
|00003fe0| 75 74 74 6f 6e 20 73 74 | 72 69 70 51 75 6f 74 65 |utton st|ripQuote|
|00003ff0| 28 71 75 61 6c 69 74 79 | 29 0d 73 65 6e 64 20 22 |(quality|).send "|
|00004000| 6d 6f 75 73 65 75 70 22 | 20 74 6f 20 63 64 20 62 |mouseup"| to cd b|
|00004010| 75 74 74 6f 6e 20 71 75 | 61 6c 69 74 79 0d 65 6e |utton qu|ality.en|
|00004020| 64 20 69 66 0d 0d 74 61 | 72 64 69 73 43 75 72 73 |d if..ta|rdisCurs|
|00004030| 6f 72 0d 69 66 20 6c 69 | 6e 65 20 31 20 6f 66 20 |or.if li|ne 1 of |
|00004040| 73 70 65 65 64 20 69 73 | 20 65 6d 70 74 79 0d 74 |speed is| empty.t|
|00004050| 68 65 6e 0d 73 65 74 20 | 68 69 6c 69 74 65 20 6f |hen.set |hilite o|
|00004060| 66 20 63 64 20 62 75 74 | 74 6f 6e 20 22 53 50 22 |f cd but|ton "SP"|
|00004070| 20 74 6f 20 66 61 6c 73 | 65 0d 73 65 74 20 68 69 | to fals|e.set hi|
|00004080| 6c 69 74 65 20 6f 66 20 | 63 64 20 62 75 74 74 6f |lite of |cd butto|
|00004090| 6e 20 22 4c 50 22 20 74 | 6f 20 66 61 6c 73 65 0d |n "LP" t|o false.|
|000040a0| 73 65 74 20 68 69 6c 69 | 74 65 20 6f 66 20 63 64 |set hili|te of cd|
|000040b0| 20 62 75 74 74 6f 6e 20 | 22 45 50 22 20 74 6f 20 | button |"EP" to |
|000040c0| 66 61 6c 73 65 0d 65 6c | 73 65 0d 70 75 74 20 6c |false.el|se.put l|
|000040d0| 69 6e 65 20 31 20 6f 66 | 20 73 70 65 65 64 20 69 |ine 1 of| speed i|
|000040e0| 6e 74 6f 20 73 70 65 65 | 64 0d 73 65 6e 64 20 22 |nto spee|d.send "|
|000040f0| 6d 6f 75 73 65 75 70 22 | 20 74 6f 20 63 64 20 62 |mouseup"| to cd b|
|00004100| 75 74 74 6f 6e 20 73 70 | 65 65 64 0d 2d 2d 73 65 |utton sp|eed.--se|
|00004110| 6e 64 20 22 6d 6f 75 73 | 65 75 70 22 20 74 6f 20 |nd "mous|eup" to |
|00004120| 63 64 20 62 75 74 74 6f | 6e 20 73 74 72 69 70 51 |cd butto|n stripQ|
|00004130| 75 6f 74 65 28 73 70 65 | 65 64 29 0d 65 6e 64 20 |uote(spe|ed).end |
|00004140| 69 66 0d 65 6e 64 20 70 | 75 74 44 61 74 61 49 6e |if.end p|utDataIn|
|00004150| 74 6f 50 72 69 6e 74 43 | 61 72 64 0d 0d 6f 6e 20 |toPrintC|ard..on |
|00004160| 69 6e 69 74 53 74 61 63 | 6b 0d 61 6e 73 77 65 72 |initStac|k.answer|
|00004170| 20 22 49 6e 69 74 69 61 | 6c 69 7a 65 20 73 74 61 | "Initia|lize sta|
|00004180| 63 6b 20 66 6f 72 20 6e | 65 77 20 75 73 65 72 3f |ck for n|ew user?|
|00004190| 20 20 43 6c 65 61 72 73 | 20 61 6c 6c 20 74 61 70 |  Clears| all tap|
|000041a0| 65 20 6e 75 6d 62 65 72 | 73 2c 20 74 61 70 65 20 |e number|s, tape |
|000041b0| 71 75 61 6c 69 74 79 20 | 66 69 65 6c 64 73 2c 20 |quality |fields, |
|000041c0| 65 74 63 2e 22 20 77 69 | 74 68 20 22 4f 6b 22 20 |etc." wi|th "Ok" |
|000041d0| 6f 72 20 22 43 61 6e 63 | 65 6c 22 0d 69 66 20 69 |or "Canc|el".if i|
|000041e0| 74 20 69 73 20 22 43 61 | 6e 63 65 6c 22 20 74 68 |t is "Ca|ncel" th|
|000041f0| 65 6e 20 65 78 69 74 20 | 69 6e 69 74 53 74 61 63 |en exit |initStac|
|00004200| 6b 0d 61 6e 73 77 65 72 | 20 22 41 72 65 20 79 6f |k.answer| "Are yo|
|00004210| 75 20 72 65 61 6c 6c 79 | 20 73 75 72 65 20 79 6f |u really| sure yo|
|00004220| 75 20 77 61 6e 74 20 74 | 6f 20 65 72 61 73 65 20 |u want t|o erase |
|00004230| 74 68 65 20 75 73 65 72 | 20 64 61 74 61 3f 22 20 |the user| data?" |
|00004240| 77 69 74 68 20 22 59 6f | 75 20 42 65 74 21 22 20 |with "Yo|u Bet!" |
|00004250| 6f 72 20 22 43 61 6e 63 | 65 6c 22 0d 69 66 20 69 |or "Canc|el".if i|
|00004260| 74 20 69 73 20 22 43 61 | 6e 63 65 6c 22 20 74 68 |t is "Ca|ncel" th|
|00004270| 65 6e 20 65 78 69 74 20 | 69 6e 69 74 53 74 61 63 |en exit |initStac|
|00004280| 6b 0d 0d 6c 6f 63 6b 20 | 73 63 72 65 65 6e 0d 70 |k..lock |screen.p|
|00004290| 75 73 68 20 63 61 72 64 | 0d 67 6f 20 74 6f 20 63 |ush card|.go to c|
|000042a0| 61 72 64 20 31 20 6f 66 | 20 62 61 63 6b 67 72 6f |ard 1 of| backgro|
|000042b0| 75 6e 64 20 22 54 61 70 | 65 20 44 61 74 61 62 61 |und "Tap|e Databa|
|000042c0| 73 65 22 0d 70 75 74 20 | 74 72 75 65 20 69 6e 74 |se".put |true int|
|000042d0| 6f 20 63 61 72 64 20 66 | 69 65 6c 64 20 22 66 61 |o card f|ield "fa|
|000042e0| 6e 63 79 6f 70 65 6e 69 | 6e 67 22 20 6f 66 20 63 |ncyopeni|ng" of c|
|000042f0| 61 72 64 20 22 6f 70 65 | 6e 69 6e 67 20 63 61 72 |ard "ope|ning car|
|00004300| 64 22 0d 70 75 74 20 74 | 68 65 20 6e 75 6d 62 65 |d".put t|he numbe|
|00004310| 72 20 6f 66 20 63 61 72 | 64 73 20 6f 66 20 62 61 |r of car|ds of ba|
|00004320| 63 6b 67 72 6f 75 6e 64 | 20 22 74 61 70 65 20 64 |ckground| "tape d|
|00004330| 61 74 61 62 61 73 65 22 | 20 69 6e 74 6f 20 6e 75 |atabase"| into nu|
|00004340| 6d 43 61 72 64 73 0d 70 | 75 74 20 6e 75 6d 43 61 |mCards.p|ut numCa|
|00004350| 72 64 73 20 2d 20 31 20 | 69 6e 74 6f 20 6e 75 6d |rds - 1 |into num|
|00004360| 43 61 72 64 73 0d 0d 72 | 65 70 65 61 74 20 77 69 |Cards..r|epeat wi|
|00004370| 74 68 20 69 20 3d 20 31 | 20 74 6f 20 20 6e 75 6d |th i = 1| to  num|
|00004380| 43 61 72 64 73 0d 74 61 | 72 64 69 73 43 75 72 73 |Cards.ta|rdisCurs|
|00004390| 6f 72 0d 69 6e 69 74 43 | 61 72 64 0d 67 6f 20 74 |or.initC|ard.go t|
|000043a0| 6f 20 6e 65 78 74 20 63 | 61 72 64 0d 65 6e 64 20 |o next c|ard.end |
|000043b0| 72 65 70 65 61 74 0d 70 | 6f 70 20 63 61 72 64 0d |repeat.p|op card.|
|000043c0| 65 6e 64 20 69 6e 69 74 | 73 74 61 63 6b 0d 0d 6f |end init|stack..o|
|000043d0| 6e 20 64 6f 49 6e 69 74 | 43 61 72 64 0d 61 6e 73 |n doInit|Card.ans|
|000043e0| 77 65 72 20 22 43 6c 65 | 61 72 20 75 73 65 72 20 |wer "Cle|ar user |
|000043f0| 69 6e 66 6f 72 6d 61 74 | 69 6f 6e 20 66 6f 72 20 |informat|ion for |
|00004400| 74 68 69 73 20 63 61 72 | 64 3f 22 20 77 69 74 68 |this car|d?" with|
|00004410| 20 22 4f 6b 22 20 6f 72 | 20 22 43 61 6e 63 65 6c | "Ok" or| "Cancel|
|00004420| 22 0d 69 66 20 69 74 20 | 69 73 20 22 43 61 6e 63 |".if it |is "Canc|
|00004430| 65 6c 22 20 74 68 65 6e | 20 65 78 69 74 20 64 6f |el" then| exit do|
|00004440| 49 6e 69 74 43 61 72 64 | 0d 61 6e 73 77 65 72 20 |InitCard|.answer |
|00004450| 22 52 65 61 6c 6c 79 20 | 63 6c 65 61 72 20 75 73 |"Really |clear us|
|00004460| 65 72 20 69 6e 66 6f 72 | 6d 61 74 69 6f 6e 20 66 |er infor|mation f|
|00004470| 6f 72 20 74 68 69 73 20 | 63 61 72 64 3f 22 20 77 |or this |card?" w|
|00004480| 69 74 68 20 22 44 6f 20 | 49 74 21 22 20 6f 72 20 |ith "Do |It!" or |
|00004490| 22 43 61 6e 63 65 6c 22 | 0d 69 66 20 69 74 20 69 |"Cancel"|.if it i|
|000044a0| 73 20 22 43 61 6e 63 65 | 6c 22 20 74 68 65 6e 20 |s "Cance|l" then |
|000044b0| 65 78 69 74 20 64 6f 49 | 6e 69 74 43 61 72 64 0d |exit doI|nitCard.|
|000044c0| 6c 6f 63 6b 20 73 63 72 | 65 65 6e 0d 69 6e 69 74 |lock scr|een.init|
|000044d0| 43 61 72 64 0d 65 6e 64 | 20 64 6f 49 6e 69 74 43 |Card.end| doInitC|
|000044e0| 61 72 64 0d 0d 6f 6e 20 | 69 6e 69 74 43 61 72 64 |ard..on |initCard|
|000044f0| 0d 70 75 74 20 65 6d 70 | 74 79 20 69 6e 74 6f 20 |.put emp|ty into |
|00004500| 62 6b 67 6e 64 20 66 69 | 65 6c 64 20 22 74 61 70 |bkgnd fi|eld "tap|
|00004510| 65 20 73 70 65 65 64 22 | 0d 70 75 74 20 65 6d 70 |e speed"|.put emp|
|00004520| 74 79 20 69 6e 74 6f 20 | 62 6b 67 6e 64 20 66 69 |ty into |bkgnd fi|
|00004530| 65 6c 64 20 22 61 75 64 | 69 6f 22 0d 70 75 74 20 |eld "aud|io".put |
|00004540| 65 6d 70 74 79 20 69 6e | 74 6f 20 62 6b 67 6e 64 |empty in|to bkgnd|
|00004550| 20 66 69 65 6c 64 20 22 | 54 56 20 52 65 63 65 70 | field "|TV Recep|
|00004560| 74 69 6f 6e 22 0d 70 75 | 74 20 65 6d 70 74 79 20 |tion".pu|t empty |
|00004570| 69 6e 74 6f 20 62 6b 67 | 6e 64 20 66 69 65 6c 64 |into bkg|nd field|
|00004580| 20 22 54 61 70 65 20 43 | 6f 6c 6c 65 63 74 65 64 | "Tape C|ollected|
|00004590| 22 0d 70 75 74 20 65 6d | 70 74 79 20 69 6e 74 6f |".put em|pty into|
|000045a0| 20 62 6b 67 6e 64 20 66 | 69 65 6c 64 20 22 42 6f | bkgnd f|ield "Bo|
|000045b0| 6f 6b 20 43 6f 6c 6c 65 | 63 74 65 64 22 0d 70 75 |ok Colle|cted".pu|
|000045c0| 74 20 65 6d 70 74 79 20 | 69 6e 74 6f 20 62 6b 67 |t empty |into bkg|
|000045d0| 6e 64 20 66 69 65 6c 64 | 20 22 54 61 70 65 20 4e |nd field| "Tape N|
|000045e0| 75 6d 62 65 72 22 0d 73 | 65 74 20 74 68 65 20 68 |umber".s|et the h|
|000045f0| 69 6c 69 74 65 20 6f 66 | 20 62 67 20 62 75 74 74 |ilite of| bg butt|
|00004600| 6f 6e 20 22 63 6f 6c 6c | 65 63 74 65 64 22 20 74 |on "coll|ected" t|
|00004610| 6f 20 66 61 6c 73 65 0d | 73 65 74 20 74 68 65 20 |o false.|set the |
|00004620| 68 69 6c 69 74 65 20 6f | 66 20 62 67 20 62 75 74 |hilite o|f bg but|
|00004630| 74 6f 6e 20 22 53 50 22 | 20 74 6f 20 66 61 6c 73 |ton "SP"| to fals|
|00004640| 65 0d 73 65 74 20 74 68 | 65 20 68 69 6c 69 74 65 |e.set th|e hilite|
|00004650| 20 6f 66 20 62 67 20 62 | 75 74 74 6f 6e 20 22 4c | of bg b|utton "L|
|00004660| 50 22 20 74 6f 20 66 61 | 6c 73 65 0d 73 65 74 20 |P" to fa|lse.set |
|00004670| 74 68 65 20 68 69 6c 69 | 74 65 20 6f 66 20 62 67 |the hili|te of bg|
|00004680| 20 62 75 74 74 6f 6e 20 | 22 45 50 22 20 74 6f 20 | button |"EP" to |
|00004690| 66 61 6c 73 65 0d 73 65 | 74 20 74 68 65 20 68 69 |false.se|t the hi|
|000046a0| 6c 69 74 65 20 6f 66 20 | 62 67 20 62 75 74 74 6f |lite of |bg butto|
|000046b0| 6e 20 22 4d 6f 6e 6f 22 | 20 74 6f 20 66 61 6c 73 |n "Mono"| to fals|
|000046c0| 65 0d 73 65 74 20 74 68 | 65 20 68 69 6c 69 74 65 |e.set th|e hilite|
|000046d0| 20 6f 66 20 62 67 20 62 | 75 74 74 6f 6e 20 22 73 | of bg b|utton "s|
|000046e0| 74 65 72 65 6f 22 20 74 | 6f 20 66 61 6c 73 65 0d |tereo" t|o false.|
|000046f0| 73 65 74 20 74 68 65 20 | 68 69 6c 69 74 65 20 6f |set the |hilite o|
|00004700| 66 20 62 67 20 62 75 74 | 74 6f 6e 20 22 50 6f 6f |f bg but|ton "Poo|
|00004710| 72 22 20 74 6f 20 66 61 | 6c 73 65 0d 73 65 74 20 |r" to fa|lse.set |
|00004720| 74 68 65 20 68 69 6c 69 | 74 65 20 6f 66 20 62 67 |the hili|te of bg|
|00004730| 20 62 75 74 74 6f 6e 20 | 22 47 6f 6f 64 22 20 74 | button |"Good" t|
|00004740| 6f 20 66 61 6c 73 65 0d | 73 65 74 20 74 68 65 20 |o false.|set the |
|00004750| 68 69 6c 69 74 65 20 6f | 66 20 62 67 20 62 75 74 |hilite o|f bg but|
|00004760| 74 6f 6e 20 22 45 78 63 | 65 6c 6c 65 6e 74 22 20 |ton "Exc|ellent" |
|00004770| 74 6f 20 66 61 6c 73 65 | 0d 73 65 74 20 74 68 65 |to false|.set the|
|00004780| 20 68 69 6c 69 74 65 20 | 6f 66 20 62 67 20 62 75 | hilite |of bg bu|
|00004790| 74 74 6f 6e 20 22 42 6f | 6f 6b 20 43 6f 6c 6c 65 |tton "Bo|ok Colle|
|000047a0| 63 74 65 64 22 20 74 6f | 20 66 61 6c 73 65 0d 73 |cted" to| false.s|
|000047b0| 65 74 20 74 68 65 20 73 | 63 72 6f 6c 6c 20 6f 66 |et the s|croll of|
|000047c0| 20 62 67 20 66 69 65 6c | 64 20 22 65 70 69 73 6f | bg fiel|d "episo|
|000047d0| 64 65 22 20 74 6f 20 30 | 0d 65 6e 64 20 69 6e 69 |de" to 0|.end ini|
|000047e0| 74 43 61 72 64 0d 0d 6f | 6e 20 65 64 69 74 4d 6f |tCard..o|n editMo|
|000047f0| 64 65 20 74 68 65 53 74 | 61 74 75 73 0d 67 6c 6f |de theSt|atus.glo|
|00004800| 62 61 6c 20 74 68 65 4f | 6c 64 55 73 65 72 4c 65 |bal theO|ldUserLe|
|00004810| 76 65 6c 0d 70 75 74 20 | 66 6c 61 73 65 20 69 6e |vel.put |flase in|
|00004820| 74 6f 20 67 6f 42 61 63 | 6b 0d 0d 69 66 20 74 68 |to goBac|k..if th|
|00004830| 65 20 75 73 65 72 6c 65 | 76 65 6c 20 3c 20 34 0d |e userle|vel < 4.|
|00004840| 74 68 65 6e 0d 70 75 74 | 20 74 68 65 20 75 73 65 |then.put| the use|
|00004850| 72 6c 65 76 65 6c 20 69 | 6e 74 6f 20 74 68 65 4f |rlevel i|nto theO|
|00004860| 6c 64 55 73 65 72 4c 65 | 76 65 6c 0d 73 65 74 20 |ldUserLe|vel.set |
|00004870| 74 68 65 20 75 73 65 72 | 6c 65 76 65 6c 20 74 6f |the user|level to|
|00004880| 20 34 0d 65 6e 64 20 69 | 66 0d 67 65 74 20 74 68 | 4.end i|f.get th|
|00004890| 65 20 6e 61 6d 65 20 6f | 66 20 74 68 69 73 20 62 |e name o|f this b|
|000048a0| 61 63 6b 67 72 6f 75 6e | 64 0d 69 66 20 69 74 20 |ackgroun|d.if it |
|000048b0| 69 73 20 6e 6f 74 20 22 | 54 61 70 65 20 44 61 74 |is not "|Tape Dat|
|000048c0| 61 62 61 73 65 22 0d 74 | 68 65 6e 0d 73 65 74 20 |abase".t|hen.set |
|000048d0| 6c 6f 63 6b 73 63 72 65 | 65 6e 20 74 6f 20 74 72 |lockscre|en to tr|
|000048e0| 75 65 0d 70 75 73 68 20 | 63 61 72 64 0d 67 6f 20 |ue.push |card.go |
|000048f0| 74 6f 20 62 61 63 6b 67 | 72 6f 75 6e 64 20 22 74 |to backg|round "t|
|00004900| 61 70 65 20 64 61 74 61 | 62 61 73 65 22 0d 70 75 |ape data|base".pu|
|00004910| 74 20 74 72 75 65 20 69 | 6e 74 6f 20 67 6f 42 61 |t true i|nto goBa|
|00004920| 63 6b 0d 65 6e 64 20 69 | 66 0d 0d 73 65 74 20 74 |ck.end i|f..set t|
|00004930| 68 65 20 6c 6f 63 6b 54 | 65 78 74 20 6f 66 20 62 |he lockT|ext of b|
|00004940| 67 20 66 69 65 6c 64 20 | 22 45 70 69 73 6f 64 65 |g field |"Episode|
|00004950| 20 45 78 69 73 74 73 20 | 44 61 74 61 22 20 74 6f | Exists |Data" to|
|00004960| 20 74 68 65 53 74 61 74 | 75 73 0d 73 65 74 20 74 | theStat|us.set t|
|00004970| 68 65 20 6c 6f 63 6b 54 | 65 78 74 20 6f 66 20 62 |he lockT|ext of b|
|00004980| 67 20 66 69 65 6c 64 20 | 22 42 72 6f 61 64 63 61 |g field |"Broadca|
|00004990| 73 74 20 44 61 74 65 22 | 20 74 6f 20 74 68 65 53 |st Date"| to theS|
|000049a0| 74 61 74 75 73 0d 73 65 | 74 20 74 68 65 20 6c 6f |tatus.se|t the lo|
|000049b0| 63 6b 54 65 78 74 20 6f | 66 20 62 67 20 66 69 65 |ckText o|f bg fie|
|000049c0| 6c 64 20 22 45 70 69 73 | 6f 64 65 22 20 74 6f 20 |ld "Epis|ode" to |
|000049d0| 74 68 65 53 74 61 74 75 | 73 0d 73 65 74 20 74 68 |theStatu|s.set th|
|000049e0| 65 20 6c 6f 63 6b 54 65 | 78 74 20 6f 66 20 62 67 |e lockTe|xt of bg|
|000049f0| 20 66 69 65 6c 64 20 22 | 43 6f 6e 64 69 74 69 6f | field "|Conditio|
|00004a00| 6e 22 20 74 6f 20 74 68 | 65 53 74 61 74 75 73 0d |n" to th|eStatus.|
|00004a10| 73 65 74 20 74 68 65 20 | 6c 6f 63 6b 54 65 78 74 |set the |lockText|
|00004a20| 20 6f 66 20 62 67 20 66 | 69 65 6c 64 20 22 41 63 | of bg f|ield "Ac|
|00004a30| 74 6f 72 22 20 74 6f 20 | 74 68 65 53 74 61 74 75 |tor" to |theStatu|
|00004a40| 73 0d 73 65 74 20 74 68 | 65 20 6c 6f 63 6b 54 65 |s.set th|e lockTe|
|00004a50| 78 74 20 6f 66 20 62 67 | 20 66 69 65 6c 64 20 22 |xt of bg| field "|
|00004a60| 43 68 61 72 61 63 74 65 | 72 22 20 74 6f 20 74 68 |Characte|r" to th|
|00004a70| 65 53 74 61 74 75 73 0d | 73 65 74 20 74 68 65 20 |eStatus.|set the |
|00004a80| 6c 6f 63 6b 54 65 78 74 | 20 6f 66 20 62 67 20 66 |lockText| of bg f|
|00004a90| 69 65 6c 64 20 22 57 72 | 69 74 65 72 22 20 74 6f |ield "Wr|iter" to|
|00004aa0| 20 74 68 65 53 74 61 74 | 75 73 0d 73 65 74 20 74 | theStat|us.set t|
|00004ab0| 68 65 20 6c 6f 63 6b 54 | 65 78 74 20 6f 66 20 62 |he lockT|ext of b|
|00004ac0| 67 20 66 69 65 6c 64 20 | 22 44 69 72 65 63 74 6f |g field |"Directo|
|00004ad0| 72 22 20 74 6f 20 74 68 | 65 53 74 61 74 75 73 0d |r" to th|eStatus.|
|00004ae0| 73 65 74 20 74 68 65 20 | 6c 6f 63 6b 54 65 78 74 |set the |lockText|
|00004af0| 20 6f 66 20 62 67 20 66 | 69 65 6c 64 20 22 44 65 | of bg f|ield "De|
|00004b00| 73 69 67 6e 65 72 22 20 | 74 6f 20 74 68 65 53 74 |signer" |to theSt|
|00004b10| 61 74 75 73 0d 73 65 74 | 20 74 68 65 20 6c 6f 63 |atus.set| the loc|
|00004b20| 6b 54 65 78 74 20 6f 66 | 20 62 67 20 66 69 65 6c |kText of| bg fiel|
|00004b30| 64 20 22 53 74 6f 72 79 | 20 4c 65 6e 67 74 68 22 |d "Story| Length"|
|00004b40| 20 74 6f 20 74 68 65 53 | 74 61 74 75 73 0d 73 65 | to theS|tatus.se|
|00004b50| 74 20 74 68 65 20 6c 6f | 63 6b 54 65 78 74 20 6f |t the lo|ckText o|
|00004b60| 66 20 62 67 20 66 69 65 | 6c 64 20 22 54 69 74 6c |f bg fie|ld "Titl|
|00004b70| 65 22 20 74 6f 20 74 68 | 65 53 74 61 74 75 73 0d |e" to th|eStatus.|
|00004b80| 73 65 74 20 74 68 65 20 | 6c 6f 63 6b 54 65 78 74 |set the |lockText|
|00004b90| 20 6f 66 20 62 67 20 66 | 69 65 6c 64 20 22 44 6f | of bg f|ield "Do|
|00004ba0| 63 74 6f 72 22 20 74 6f | 20 74 68 65 53 74 61 74 |ctor" to| theStat|
|00004bb0| 75 73 0d 73 65 74 20 74 | 68 65 20 6c 6f 63 6b 54 |us.set t|he lockT|
|00004bc0| 65 78 74 20 6f 66 20 62 | 67 20 66 69 65 6c 64 20 |ext of b|g field |
|00004bd0| 22 50 72 6f 64 75 63 74 | 69 6f 6e 20 43 6f 64 65 |"Product|ion Code|
|00004be0| 22 20 74 6f 20 74 68 65 | 53 74 61 74 75 73 0d 73 |" to the|Status.s|
|00004bf0| 65 74 20 74 68 65 20 6c | 6f 63 6b 54 65 78 74 20 |et the l|ockText |
|00004c00| 6f 66 20 62 67 20 66 69 | 65 6c 64 20 22 53 65 61 |of bg fi|eld "Sea|
|00004c10| 73 6f 6e 22 20 74 6f 20 | 74 68 65 53 74 61 74 75 |son" to |theStatu|
|00004c20| 73 0d 69 66 20 67 6f 42 | 61 63 6b 20 69 73 20 74 |s.if goB|ack is t|
|00004c30| 72 75 65 20 74 68 65 6e | 20 70 6f 70 20 63 61 72 |rue then| pop car|
|00004c40| 64 0d 65 6e 64 20 65 64 | 69 74 4d 6f 64 65 0d 0d |d.end ed|itMode..|
|00004c50| 6f 6e 20 61 72 72 6f 77 | 4b 65 79 20 77 68 69 63 |on arrow|Key whic|
|00004c60| 68 4b 65 79 0d 69 66 20 | 77 68 69 63 68 4b 65 79 |hKey.if |whichKey|
|00004c70| 20 69 73 20 22 6c 65 66 | 74 22 0d 74 68 65 6e 0d | is "lef|t".then.|
|00004c80| 73 65 6e 64 20 6d 6f 75 | 73 65 53 74 69 6c 6c 64 |send mou|seStilld|
|00004c90| 6f 77 6e 20 74 6f 20 62 | 67 20 62 74 6e 20 22 70 |own to b|g btn "p|
|00004ca0| 72 65 76 22 0d 65 6c 73 | 65 20 69 66 20 77 68 69 |rev".els|e if whi|
|00004cb0| 63 68 4b 65 79 20 69 73 | 20 22 72 69 67 68 74 22 |chKey is| "right"|
|00004cc0| 0d 74 68 65 6e 0d 73 65 | 6e 64 20 6d 6f 75 73 65 |.then.se|nd mouse|
|00004cd0| 53 74 69 6c 6c 64 6f 77 | 6e 20 74 6f 20 62 67 20 |Stilldow|n to bg |
|00004ce0| 62 74 6e 20 22 6e 65 78 | 74 22 0d 65 6c 73 65 0d |btn "nex|t".else.|
|00004cf0| 70 61 73 73 20 61 72 72 | 6f 77 6b 65 79 0d 65 6e |pass arr|owkey.en|
|00004d00| 64 20 69 66 0d 65 6e 64 | 20 61 72 72 6f 77 4b 65 |d if.end| arrowKe|
|00004d10| 79 0d 0d 6f 6e 20 64 6f | 6d 65 6e 75 20 74 72 61 |y..on do|menu tra|
|00004d20| 70 0d 69 66 20 74 72 61 | 70 20 69 73 20 22 64 65 |p.if tra|p is "de|
|00004d30| 6c 65 74 65 20 63 61 72 | 64 22 0d 74 68 65 6e 0d |lete car|d".then.|
|00004d40| 70 61 73 73 20 64 6f 4d | 65 6e 75 0d 2d 2d 20 67 |pass doM|enu.-- g|
|00004d50| 65 74 20 74 68 65 20 6e | 75 6d 62 65 72 20 6f 66 |et the n|umber of|
|00004d60| 20 74 68 65 20 6c 61 73 | 74 20 63 61 72 64 20 6f | the las|t card o|
|00004d70| 66 20 74 68 69 73 20 62 | 61 63 6b 67 72 6f 75 6e |f this b|ackgroun|
|00004d80| 64 0d 2d 2d 20 69 66 20 | 74 68 65 20 6e 75 6d 62 |d.-- if |the numb|
|00004d90| 65 72 20 6f 66 20 74 68 | 69 73 20 63 61 72 64 20 |er of th|is card |
|00004da0| 69 73 20 69 74 0d 2d 2d | 20 74 68 65 6e 0d 2d 2d |is it.--| then.--|
|00004db0| 20 70 75 74 20 74 72 75 | 65 20 69 6e 74 6f 20 74 | put tru|e into t|
|00004dc0| 68 65 4c 61 73 74 43 61 | 72 64 0d 2d 2d 20 70 75 |heLastCa|rd.-- pu|
|00004dd0| 74 20 74 68 65 20 73 68 | 6f 72 74 20 6e 61 6d 65 |t the sh|ort name|
|00004de0| 20 6f 66 20 74 68 69 73 | 20 62 61 63 6b 67 72 6f | of this| backgro|
|00004df0| 75 6e 64 20 69 6e 74 6f | 20 74 68 65 42 61 63 6b |und into| theBack|
|00004e00| 0d 2d 2d 20 73 65 74 20 | 74 68 65 20 6c 6f 63 6b |.-- set |the lock|
|00004e10| 73 63 72 65 65 6e 20 74 | 6f 20 74 72 75 65 0d 2d |screen t|o true.-|
|00004e20| 2d 20 65 6c 73 65 0d 2d | 2d 20 70 75 74 20 66 61 |- else.-|- put fa|
|00004e30| 6c 73 65 20 69 6e 74 6f | 20 74 68 65 4c 61 73 74 |lse into| theLast|
|00004e40| 43 61 72 64 0d 2d 2d 20 | 65 6e 64 20 69 66 0d 2d |Card.-- |end if.-|
|00004e50| 2d 20 73 65 6e 64 20 22 | 64 6f 4d 65 6e 75 20 64 |- send "|doMenu d|
|00004e60| 65 6c 65 74 65 20 63 61 | 72 64 22 20 74 6f 20 68 |elete ca|rd" to h|
|00004e70| 79 70 65 72 63 61 72 64 | 0d 2d 2d 20 69 66 20 74 |ypercard|.-- if t|
|00004e80| 68 65 4c 61 73 74 43 61 | 72 64 20 69 73 20 74 72 |heLastCa|rd is tr|
|00004e90| 75 65 0d 2d 2d 20 74 68 | 65 6e 0d 2d 2d 20 67 6f |ue.-- th|en.-- go|
|00004ea0| 20 74 6f 20 74 68 65 20 | 66 69 72 73 74 20 63 61 | to the |first ca|
|00004eb0| 72 64 20 6f 66 20 62 61 | 63 6b 67 72 6f 75 6e 64 |rd of ba|ckground|
|00004ec0| 20 74 68 65 42 61 63 6b | 0d 2d 2d 20 65 6e 64 20 | theBack|.-- end |
|00004ed0| 69 66 0d 0d 65 6c 73 65 | 20 69 66 20 74 72 61 70 |if..else| if trap|
|00004ee0| 20 69 73 20 22 66 69 72 | 73 74 22 0d 74 68 65 6e | is "fir|st".then|
|00004ef0| 0d 67 6f 20 74 6f 20 74 | 68 65 20 66 69 72 73 74 |.go to t|he first|
|00004f00| 20 63 61 72 64 20 6f 66 | 20 74 68 69 73 20 62 61 | card of| this ba|
|00004f10| 63 6b 67 72 6f 75 6e 64 | 0d 65 6c 73 65 20 69 66 |ckground|.else if|
|00004f20| 20 74 72 61 70 20 69 73 | 20 22 70 72 65 76 22 0d | trap is| "prev".|
|00004f30| 74 68 65 6e 0d 73 65 6e | 64 20 22 6d 6f 75 73 65 |then.sen|d "mouse|
|00004f40| 53 74 69 6c 6c 64 6f 77 | 6e 22 20 74 6f 20 62 67 |Stilldow|n" to bg|
|00004f50| 20 62 74 6e 20 22 70 72 | 65 76 22 0d 65 6c 73 65 | btn "pr|ev".else|
|00004f60| 20 69 66 20 74 72 61 70 | 20 69 73 20 22 6e 65 78 | if trap| is "nex|
|00004f70| 74 22 0d 74 68 65 6e 0d | 73 65 6e 64 20 22 6d 6f |t".then.|send "mo|
|00004f80| 75 73 65 53 74 69 6c 6c | 64 6f 77 6e 22 20 74 6f |useStill|down" to|
|00004f90| 20 62 67 20 62 74 6e 20 | 22 6e 65 78 74 22 0d 65 | bg btn |"next".e|
|00004fa0| 6c 73 65 20 69 66 20 74 | 72 61 70 20 69 73 20 22 |lse if t|rap is "|
|00004fb0| 6c 61 73 74 22 0d 74 68 | 65 6e 0d 67 6f 20 74 6f |last".th|en.go to|
|00004fc0| 20 74 68 65 20 6c 61 73 | 74 20 63 61 72 64 20 6f | the las|t card o|
|00004fd0| 66 20 74 68 69 73 20 62 | 61 63 6b 67 72 6f 75 6e |f this b|ackgroun|
|00004fe0| 64 0d 65 6c 73 65 20 69 | 66 20 74 72 61 70 20 69 |d.else i|f trap i|
|00004ff0| 73 20 22 48 65 6c 70 22 | 0d 74 68 65 6e 0d 73 65 |s "Help"|.then.se|
|00005000| 6e 64 20 6d 6f 75 73 65 | 75 70 20 74 6f 20 62 67 |nd mouse|up to bg|
|00005010| 20 62 74 6e 20 22 68 65 | 6c 70 22 0d 65 6c 73 65 | btn "he|lp".else|
|00005020| 20 69 66 20 74 72 61 70 | 20 69 73 20 22 43 75 74 | if trap| is "Cut|
|00005030| 20 43 61 72 64 22 0d 74 | 68 65 6e 0d 65 6c 73 65 | Card".t|hen.else|
|00005040| 20 69 66 20 74 72 61 70 | 20 69 73 20 22 44 65 6c | if trap| is "Del|
|00005050| 65 74 65 20 53 74 61 63 | 6b 2e 2e 2e 22 0d 74 68 |ete Stac|k...".th|
|00005060| 65 6e 0d 65 6c 73 65 20 | 69 66 20 74 72 61 70 20 |en.else |if trap |
|00005070| 69 73 20 22 42 61 63 6b | 22 0d 74 68 65 6e 0d 73 |is "Back|".then.s|
|00005080| 65 6e 64 20 6d 6f 75 73 | 65 55 70 20 74 6f 20 62 |end mous|eUp to b|
|00005090| 67 20 62 75 74 74 6f 6e | 20 22 62 61 63 6b 22 0d |g button| "back".|
|000050a0| 65 6c 73 65 0d 70 61 73 | 73 20 64 6f 6d 65 6e 75 |else.pas|s domenu|
|000050b0| 0d 65 6e 64 20 69 66 0d | 65 6e 64 20 64 6f 6d 65 |.end if.|end dome|
|000050c0| 6e 75 0d 0d 6f 6e 20 74 | 61 72 64 69 73 43 75 72 |nu..on t|ardisCur|
|000050d0| 73 6f 72 0d 2d 2d 20 54 | 61 72 64 69 73 20 63 75 |sor.-- T|ardis cu|
|000050e0| 72 73 6f 72 20 64 65 73 | 69 67 6e 65 64 20 62 79 |rsor des|igned by|
|000050f0| 20 44 61 76 69 64 20 4c | 61 6e 64 69 73 0d 67 6c | David L|andis.gl|
|00005100| 6f 62 61 6c 20 74 61 72 | 64 69 73 4e 75 6d 0d 61 |obal tar|disNum.a|
|00005110| 64 64 20 31 20 74 6f 20 | 74 61 72 64 69 73 4e 75 |dd 1 to |tardisNu|
|00005120| 6d 0d 69 66 20 74 61 72 | 64 69 73 4e 75 6d 20 3d |m.if tar|disNum =|
|00005130| 20 39 20 74 68 65 6e 20 | 70 75 74 20 31 20 69 6e | 9 then |put 1 in|
|00005140| 74 6f 20 74 61 72 64 69 | 73 4e 75 6d 0d 70 75 74 |to tardi|sNum.put|
|00005150| 20 22 54 61 72 64 69 73 | 22 20 26 20 74 61 72 64 | "Tardis|" & tard|
|00005160| 69 73 4e 75 6d 20 69 6e | 74 6f 20 63 75 72 73 6f |isNum in|to curso|
|00005170| 72 4e 61 6d 65 0d 73 65 | 74 20 63 75 72 73 6f 72 |rName.se|t cursor|
|00005180| 20 74 6f 20 63 75 72 73 | 6f 72 4e 61 6d 65 0d 65 | to curs|orName.e|
|00005190| 6e 64 20 74 61 72 64 69 | 73 43 75 72 73 6f 72 0d |nd tardi|sCursor.|
|000051a0| 0d 6f 6e 20 63 68 65 63 | 6b 53 79 73 74 65 6d 0d |.on chec|kSystem.|
|000051b0| 67 6c 6f 62 61 6c 20 73 | 79 73 74 65 6d 37 43 68 |global s|ystem7Ch|
|000051c0| 65 63 6b 2c 44 57 63 70 | 75 0d 0d 70 75 74 20 53 |eck,DWcp|u..put S|
|000051d0| 79 73 45 6e 76 28 29 20 | 69 6e 74 6f 20 6d 79 53 |ysEnv() |into myS|
|000051e0| 79 73 0d 0d 69 66 20 6d | 79 53 79 73 20 63 6f 6e |ys..if m|ySys con|
|000051f0| 74 61 69 6e 73 20 22 65 | 72 72 6f 72 22 20 74 68 |tains "e|rror" th|
|00005200| 65 6e 0d 70 75 74 20 6d | 79 53 79 73 0d 65 78 69 |en.put m|ySys.exi|
|00005210| 74 20 63 68 65 63 6b 53 | 79 73 74 65 6d 0d 65 6e |t checkS|ystem.en|
|00005220| 64 20 69 66 0d 0d 70 75 | 74 20 69 74 65 6d 20 32 |d if..pu|t item 2|
|00005230| 20 6f 66 20 6c 69 6e 65 | 20 31 20 6f 66 20 6d 79 | of line| 1 of my|
|00005240| 53 79 73 20 69 6e 74 6f | 20 74 68 65 53 79 73 74 |Sys into| theSyst|
|00005250| 65 6d 0d 69 66 20 63 68 | 61 72 20 31 20 6f 66 20 |em.if ch|ar 1 of |
|00005260| 74 68 65 53 79 73 74 65 | 6d 20 63 6f 6e 74 61 69 |theSyste|m contai|
|00005270| 6e 73 20 22 37 22 0d 74 | 68 65 6e 0d 70 75 74 20 |ns "7".t|hen.put |
|00005280| 74 72 75 65 20 69 6e 74 | 6f 20 73 79 73 74 65 6d |true int|o system|
|00005290| 37 43 68 65 63 6b 0d 65 | 6c 73 65 0d 70 75 74 20 |7Check.e|lse.put |
|000052a0| 66 61 6c 73 65 20 69 6e | 74 6f 20 73 79 73 74 65 |false in|to syste|
|000052b0| 6d 37 43 68 65 63 6b 0d | 65 6e 64 20 69 66 0d 70 |m7Check.|end if.p|
|000052c0| 75 74 20 77 6f 72 64 20 | 32 20 6f 66 20 69 74 65 |ut word |2 of ite|
|000052d0| 6d 20 33 20 6f 66 20 6c | 69 6e 65 20 31 20 6f 66 |m 3 of l|ine 1 of|
|000052e0| 20 6d 79 53 79 73 20 69 | 6e 74 6f 20 44 57 63 70 | mySys i|nto DWcp|
|000052f0| 75 0d 65 6e 64 20 63 68 | 65 63 6b 53 79 73 74 65 |u.end ch|eckSyste|
|00005300| 6d 0d 0d 66 75 6e 63 74 | 69 6f 6e 20 67 65 74 43 |m..funct|ion getC|
|00005310| 6f 6d 6d 65 6e 74 73 20 | 6f 62 6a 65 63 74 4e 61 |omments |objectNa|
|00005320| 6d 65 20 20 2d 2d 20 75 | 73 65 64 20 77 69 74 68 |me  -- u|sed with|
|00005330| 20 64 6f 48 65 6c 70 20 | 61 6e 64 20 42 61 6c 6c | doHelp |and Ball|
|00005340| 6f 6f 6e 48 65 6c 70 0d | 70 75 74 20 74 68 65 20 |oonHelp.|put the |
|00005350| 73 63 72 69 70 74 20 6f | 66 20 6f 62 6a 65 63 74 |script o|f object|
|00005360| 4e 61 6d 65 20 69 6e 74 | 6f 20 74 68 65 53 63 72 |Name int|o theScr|
|00005370| 69 70 74 0d 70 75 74 20 | 65 6d 70 74 79 20 69 6e |ipt.put |empty in|
|00005380| 74 6f 20 68 6f 6c 64 65 | 72 0d 72 65 70 65 61 74 |to holde|r.repeat|
|00005390| 20 77 69 74 68 20 69 20 | 3d 20 32 20 74 6f 20 74 | with i |= 2 to t|
|000053a0| 68 65 20 6e 75 6d 62 65 | 72 20 6f 66 20 6c 69 6e |he numbe|r of lin|
|000053b0| 65 73 20 6f 66 20 74 68 | 65 53 63 72 69 70 74 0d |es of th|eScript.|
|000053c0| 70 75 74 20 6c 69 6e 65 | 20 69 20 6f 66 20 74 68 |put line| i of th|
|000053d0| 65 53 63 72 69 70 74 20 | 69 6e 74 6f 20 6f 6e 65 |eScript |into one|
|000053e0| 4c 69 6e 65 0d 69 66 20 | 6f 6e 65 4c 69 6e 65 20 |Line.if |oneLine |
|000053f0| 69 73 20 65 6d 70 74 79 | 20 74 68 65 6e 20 6e 65 |is empty| then ne|
|00005400| 78 74 20 72 65 70 65 61 | 74 0d 69 66 20 6f 66 66 |xt repea|t.if off|
|00005410| 73 65 74 28 22 2d 2d 22 | 2c 6f 6e 65 4c 69 6e 65 |set("--"|,oneLine|
|00005420| 29 20 3d 20 30 20 74 68 | 65 6e 20 65 78 69 74 20 |) = 0 th|en exit |
|00005430| 72 65 70 65 61 74 0d 64 | 65 6c 65 74 65 20 63 68 |repeat.d|elete ch|
|00005440| 61 72 20 31 20 74 6f 20 | 6f 66 66 73 65 74 28 22 |ar 1 to |offset("|
|00005450| 2d 2d 22 2c 6f 6e 65 4c | 69 6e 65 29 2b 31 20 6f |--",oneL|ine)+1 o|
|00005460| 66 20 6f 6e 65 4c 69 6e | 65 0d 70 75 74 20 22 20 |f oneLin|e.put " |
|00005470| 20 20 20 22 20 26 20 6f | 6e 65 4c 69 6e 65 20 26 |   " & o|neLine &|
|00005480| 20 72 65 74 75 72 6e 20 | 61 66 74 65 72 20 68 6f | return |after ho|
|00005490| 6c 64 65 72 0d 65 6e 64 | 20 72 65 70 65 61 74 0d |lder.end| repeat.|
|000054a0| 72 65 74 75 72 6e 20 68 | 6f 6c 64 65 72 0d 65 6e |return h|older.en|
|000054b0| 64 20 67 65 74 43 6f 6d | 6d 65 6e 74 73 0d 0d 6f |d getCom|ments..o|
|000054c0| 6e 20 62 61 6e 6e 65 72 | 20 74 68 65 54 65 78 74 |n banner| theText|
|000054d0| 0d 70 75 74 20 74 68 65 | 20 6e 75 6d 62 65 72 20 |.put the| number |
|000054e0| 6f 66 20 63 68 61 72 73 | 20 6f 66 20 74 68 65 54 |of chars| of theT|
|000054f0| 65 78 74 20 69 6e 74 6f | 20 6e 75 6d 43 68 61 72 |ext into| numChar|
|00005500| 73 0d 70 75 74 20 6e 75 | 6d 43 68 61 72 73 20 69 |s.put nu|mChars i|
|00005510| 6e 74 6f 20 78 0d 0d 70 | 75 74 20 22 20 20 20 20 |nto x..p|ut "    |
|00005520| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005530| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005540| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005550| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005560| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005570| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005580| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005590| 20 20 20 22 20 26 20 74 | 68 65 54 65 78 74 20 69 |   " & t|heText i|
|000055a0| 6e 74 6f 20 6d 65 73 73 | 61 67 65 0d 72 65 70 65 |nto mess|age.repe|
|000055b0| 61 74 20 77 69 74 68 20 | 78 20 3d 20 31 20 74 6f |at with |x = 1 to|
|000055c0| 20 6e 75 6d 43 68 61 72 | 73 20 2b 20 31 32 30 0d | numChar|s + 120.|
|000055d0| 69 66 20 74 68 65 20 6f | 70 74 69 6f 6e 4b 65 79 |if the o|ptionKey|
|000055e0| 20 69 73 20 64 6f 77 6e | 20 74 68 65 6e 20 65 78 | is down| then ex|
|000055f0| 69 74 20 62 61 6e 6e 65 | 72 0d 64 65 6c 65 74 65 |it banne|r.delete|
|00005600| 20 63 68 61 72 20 31 20 | 6f 66 20 6d 65 73 73 61 | char 1 |of messa|
|00005610| 67 65 0d 65 6e 64 20 72 | 65 70 65 61 74 0d 65 6e |ge.end r|epeat.en|
|00005620| 64 20 62 61 6e 6e 65 72 | 0d 00 65 70 65 61 74 0d |d banner|..epeat.|
|00005630| 65 6e 64 20 62 61 6e 6e | 65 72 0d 00 00 00 00 00 |end bann|er......|
|00005640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005680| 00 00 08 00 4d 41 53 54 | ff ff ff ff 00 00 00 00 |....MAST|........|
|00005690| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000056a0| 00 02 f0 92 00 02 f4 88 | 00 05 b4 d6 00 5d 7b fe |........|.....]{.|
|000056b0| 00 0a c7 67 00 5d c4 af | 00 03 34 b7 00 0c 50 a7 |...g.]..|..4...P.|
|000056c0| 00 5c c5 b9 00 49 30 86 | 00 5c e9 d3 00 03 74 21 |.\...I0.|.\....t!|
|000056d0| 00 03 b4 12 00 03 f4 47 | 00 0c 77 4b 00 13 a2 0b |.......G|..wK....|
|000056e0| 00 13 ca 81 00 13 f3 54 | 00 49 c9 5a 00 49 4b 7c |.......T|.I.Z.IK||
|000056f0| 00 04 34 91 00 52 72 df | 00 04 74 2f 00 5d 38 15 |..4..Rr.|..t/.]8.|
|00005700| 00 04 b4 88 00 5d 02 d2 | 00 04 f4 6c 00 5d 22 9d |.....]..|...l.]".|
|00005710| 00 05 34 0a 00 5d 9d d8 | 00 05 74 ec 00 5d 57 6e |..4..]..|..t..]Wn|
|00005720| 00 00 00 00 00 5c d5 08 | 00 00 00 00 00 51 c2 35 |.....\..|.....Q.5|
|00005730| 00 00 00 00 00 5d b8 12 | 00 5d d3 4b 00 5d ce 2d |.....]..|.].K.].-|
|00005740| 00 5b 27 66 00 00 00 00 | 00 51 e4 16 00 00 00 00 |.['f....|.Q......|
|00005750| 00 52 82 60 00 00 00 00 | 00 52 02 54 00 00 00 00 |.R.`....|.R.T....|
|00005760| 00 52 56 e7 00 00 00 00 | 00 52 26 65 00 00 00 00 |.RV.....|.R&e....|
|00005770| 00 5b 12 2f 00 00 00 00 | 00 58 d8 8d 00 00 00 00 |.[./....|.X......|
|00005780| 00 4e 6d 65 00 00 00 00 | 00 5a fb ef 00 15 28 c9 |.Nme....|.Z....(.|
|00005790| 00 5a c2 f4 00 00 00 00 | 00 59 18 97 00 5a 59 d0 |.Z......|.Y...ZY.|
|000057a0| 00 00 00 00 00 5a 77 00 | 00 00 00 00 00 5a 43 8c |.....Zw.|.....ZC.|
|000057b0| 00 00 00 00 00 5a 91 41 | 00 00 00 00 00 5a aa ac |.....Z.A|.....Z..|
|000057c0| 00 00 00 00 00 4d a1 cd | 00 00 00 00 00 4d c0 73 |.....M..|.....M.s|
|000057d0| 00 00 00 00 00 57 21 9f | 00 00 00 00 00 57 c5 3c |.....W!.|.....W.<|
|000057e0| 00 15 2a 13 00 57 ad c4 | 00 16 4c f9 00 57 5b a8 |..*..W..|..L..W[.|
|000057f0| 00 00 00 00 00 57 72 e1 | 00 00 00 00 00 57 90 b9 |.....Wr.|.....W..|
|00005800| 00 16 4e b6 00 57 3e 0e | 00 17 ae c2 00 50 21 8e |..N..W>.|.....P!.|
|00005810| 00 00 00 00 00 50 02 2e | 00 00 00 00 00 50 5d 19 |.....P..|.....P].|
|00005820| 00 17 b0 34 00 50 77 61 | 00 19 21 8f 00 50 91 72 |...4.Pwa|..!..P.r|
|00005830| 00 00 00 00 00 50 3e 01 | 00 0c ad 68 00 00 00 00 |.....P>.|...h....|
|00005840| 00 50 b0 70 00 00 00 00 | 00 50 c9 f9 00 19 23 19 |.P.p....|.P....#.|
|00005850| 00 51 8d 01 00 1a 9a 12 | 00 51 46 1d 00 00 00 00 |.Q......|.QF.....|
|00005860| 00 00 00 00 00 49 83 27 | 00 51 68 95 00 1a 9c f4 |.....I.'|.Qh.....|
|00005870| 00 51 2e c5 00 1c 18 e7 | 00 51 a7 b7 00 00 00 00 |.Q......|.Q......|
|00005880| 00 51 17 b9 00 00 00 00 | 00 50 e7 78 00 1c 1a aa |.Q......|.P.x....|
|00005890| 00 58 4a c9 00 1d 97 a7 | 00 57 e0 1b 00 00 00 00 |.XJ.....|.W......|
|000058a0| 00 58 21 31 00 1d 99 1d | 00 58 05 4d 00 1e ba 27 |.X!1....|.X.M...'|
|000058b0| 00 58 fa 4c 00 00 00 00 | 00 53 3b ba 00 00 00 00 |.X.L....|.S;.....|
|000058c0| 00 53 8a b3 00 1e bc 38 | 00 58 66 9b 00 59 35 df |.S.....8|.Xf..Y5.|
|000058d0| 00 00 00 00 00 58 b9 a7 | 00 1f 91 77 00 58 9b 29 |.....X..|...w.X.)|
|000058e0| 00 00 00 00 00 53 52 c7 | 00 1f 93 1c 00 53 e9 d5 |.....SR.|.....S..|
|000058f0| 00 20 9d 5e 00 53 a8 20 | 00 00 00 00 00 53 69 ee |. .^.S. |.....Si.|
|00005900| 00 00 00 00 00 5c ae 50 | 00 20 9f 0d 00 00 00 00 |.....\.P|. ......|
|00005910| 00 54 08 f4 00 00 00 00 | 00 53 c2 91 00 21 da 0e |.T......|.S...!..|
|00005920| 00 4f e5 d6 00 00 00 00 | 00 4f 1f 88 00 21 dc dc |.O......|.O...!..|
|00005930| 00 4f bb dd 00 23 40 7e | 00 58 7c de 00 00 00 00 |.O...#@~|.X|.....|
|00005940| 00 4e 7e 7b 00 00 00 00 | 00 55 10 d4 00 4f a1 21 |.N~{....|.U...O.!|
|00005950| 00 23 42 20 00 4f 68 eb | 00 24 c8 08 00 4f 3a 70 |.#B .Oh.|.$...O:p|
|00005960| 00 00 00 00 00 4e e2 b4 | 00 00 00 00 00 4e f6 ac |.....N..|.....N..|
|00005970| 00 24 ca a4 00 4e c1 15 | 00 26 79 8f 00 4f 09 08 |.$...N..|.&y..O..|
|00005980| 00 00 00 00 00 4f 4f 61 | 00 00 00 00 00 4f d1 00 |.....OOa|.....O..|
|00005990| 00 26 7b 6d 00 4e 95 e9 | 00 28 38 93 00 4e ab de |.&{m.N..|.(8..N..|
|000059a0| 00 00 00 00 00 4f 8b 1e | 00 00 00 00 00 49 d0 ab |.....O..|.....I..|
|000059b0| 00 4a 1a 3b 00 00 00 00 | 00 4a 1d e3 00 4a 6a 79 |.J.;....|.J...Jjy|
|000059c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 53 0f 0b |........|.....S..|
|000059d0| 00 28 3a 48 00 55 b4 0e | 00 29 de de 00 55 3a 2b |.(:H.U..|.)...U:+|
|000059e0| 00 00 00 00 00 55 28 8f | 00 00 00 00 00 55 6a ae |.....U(.|.....Uj.|
|000059f0| 00 29 e0 15 00 55 cb 9d | 00 2b 4d f0 00 55 9e 38 |.)...U..|.+M..U.8|
|00005a00| 00 00 00 00 00 55 54 48 | 00 00 00 00 00 55 83 81 |.....UTH|.....U..|
|00005a10| 00 2b 4f 0a 00 56 e4 8b | 00 2c c7 97 00 56 8f 1e |.+O..V..|.,...V..|
|00005a20| 00 00 00 00 00 00 00 00 | 00 56 a3 61 00 00 00 00 |........|.V.a....|
|00005a30| 00 56 d0 29 00 2c c9 1e | 00 56 fb 10 00 2e 48 a7 |.V.).,..|.V....H.|
|00005a40| 00 56 b7 fd 00 00 00 00 | 00 54 35 3e 00 00 00 00 |.V......|.T5>....|
|00005a50| 00 54 e7 ce 00 2e 4a ac | 00 54 fc f9 00 2f b4 81 |.T....J.|.T.../..|
|00005a60| 00 54 60 a1 00 00 00 00 | 00 54 4b a8 00 00 00 00 |.T`.....|.TK.....|
|00005a70| 00 54 1c 3c 00 2f b6 a5 | 00 54 79 8c 00 31 11 0f |.T.<./..|.Ty..1..|
|00005a80| 00 54 90 cd 00 00 00 00 | 00 54 b9 d9 00 00 00 00 |.T......|.T......|
|00005a90| 00 54 d0 7c 00 31 13 63 | 00 54 a4 7f 00 32 7b d4 |.T.|.1.c|.T...2{.|
|00005aa0| 00 5b 51 57 00 00 00 00 | 00 52 b7 e8 00 00 00 00 |.[QW....|.R......|
|00005ab0| 00 0b 24 c3 00 5b 3d b3 | 00 32 7d 82 00 5b b1 ef |..$..[=.|.2}..[..|
|00005ac0| 00 33 ed b3 00 57 0d 32 | 00 00 00 00 00 5b 9b 9a |.3...W.2|.....[..|
|00005ad0| 00 00 00 00 00 52 e0 1a | 00 00 00 00 00 52 9d 0b |.....R..|.....R..|
|00005ae0| 00 33 ef 56 00 5b 67 1b | 00 35 51 b5 00 52 f5 56 |.3.V.[g.|.5Q..R.V|
|00005af0| 00 00 00 00 00 5b 84 57 | 00 00 00 00 00 5b c5 f3 |.....[.W|.....[..|
|00005b00| 00 35 53 04 00 52 cb 3a | 00 36 9e 70 00 56 54 8e |.5S..R.:|.6.p.VT.|
|00005b10| 00 00 00 00 00 55 e0 d4 | 00 00 00 00 00 56 69 3e |.....U..|.....Vi>|
|00005b20| 00 36 a0 4a 00 56 07 a1 | 00 37 df d3 00 55 f4 d4 |.6.J.V..|.7...U..|
|00005b30| 00 00 00 00 00 56 1e 2f | 00 00 00 00 00 37 e1 d3 |.....V./|.....7..|
|00005b40| 00 56 38 a4 00 38 f9 9f | 00 59 6e 94 00 00 00 00 |.V8..8..|.Yn.....|
|00005b50| 00 5a 12 41 00 00 00 00 | 00 59 b5 41 00 38 fb c1 |.Z.A....|.Y.A.8..|
|00005b60| 00 59 9b 6e 00 3a 0a 57 | 00 59 84 9e 00 00 00 00 |.Y.n.:.W|.Y......|
|00005b70| 00 4d d5 f8 00 00 00 00 | 00 5a 2a e2 00 3a 0c 94 |.M......|.Z*..:..|
|00005b80| 00 59 fa 08 00 3a f5 01 | 00 59 54 bc 00 00 00 00 |.Y...:..|.YT.....|
|00005b90| 00 59 e3 af 00 00 00 00 | 00 59 cd 36 00 3a f7 2c |.Y......|.Y.6.:.,|
|00005ba0| 00 4e 20 df 00 3b d1 e4 | 00 4d ec da 00 00 00 00 |.N ..;..|.M......|
|00005bb0| 00 53 27 02 00 00 00 00 | 00 4e 3f 8c 00 00 00 00 |.S'.....|.N?.....|
|00005bc0| 00 4d ff 65 00 3b d3 68 | 00 3c b5 ad 00 4e 56 11 |.M.e.;.h|.<...NV.|
|00005bd0| 00 00 00 00 00 5c 73 95 | 00 00 00 00 00 5c 58 b4 |.....\s.|.....\X.|
|00005be0| 00 3c b7 7d 00 5b f0 19 | 00 3d 8e b5 00 5c 93 87 |.<.}.[..|.=...\..|
|00005bf0| 00 00 00 00 00 5c 3e 76 | 00 3e 51 a7 00 5c 27 25 |.....\>v|.>Q..\'%|
|00005c00| 00 3d 90 65 00 5c 0b 5c | 00 3f 17 c9 00 5b db 72 |.=.e.\.\|.?...[.r|
|00005c10| 00 3e 53 63 00 14 45 70 | 00 14 4f 7e 00 5d d7 3f |.>Sc..Ep|..O~.].?|
|00005c20| 00 3f e3 eb 00 3f 19 6e | 00 40 b0 e9 00 3f e5 39 |.?...?.n|.@...?.9|
|00005c30| 00 41 7a 4a 00 40 b2 c7 | 00 42 40 06 00 00 00 00 |.AzJ.@..|.B@.....|
|00005c40| 00 00 00 00 00 00 00 00 | 00 41 7c aa 00 00 00 00 |........|.A|.....|
|00005c50| 00 00 00 00 00 00 00 00 | 00 0c 09 2d 00 4b b1 bc |........|...-.K..|
|00005c60| 00 4c 16 07 00 4d 1f 7e | 00 4b b7 f5 00 4c 10 35 |.L...M.~|.K...L.5|
|00005c70| 00 4d 25 19 00 4d 43 86 | 00 43 03 e5 00 42 42 44 |.M%..MC.|.C...BBD|
|00005c80| 00 4d 47 63 00 4d 9b 93 | 00 43 05 e1 00 43 ef 71 |.MGc.M..|.C...C.q|
|00005c90| 00 44 d8 0b 00 43 f1 cb | 00 45 69 9b 00 44 da 3c |.D...C..|.Ei..D.<|
|00005ca0| 00 45 94 2e 00 45 6b e9 | 00 46 28 34 00 00 00 00 |.E...Ek.|.F(4....|
|00005cb0| 00 45 96 96 00 47 50 c3 | 00 46 2a 1e 00 48 4a 11 |.E...GP.|.F*..HJ.|
|00005cc0| 00 47 52 98 00 48 4c 97 | 00 00 00 00 00 14 52 02 |.GR..HL.|......R.|
|00005cd0| 00 14 5b 67 00 00 00 00 | 00 00 00 00 00 00 00 00 |..[g....|........|
|00005ce0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005cf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005d00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005d10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005d20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005d30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005d40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005d50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005d60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005d70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005d80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005d90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005da0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005db0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005dc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005dd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005e00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005e10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005e20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005e30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005e40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005e50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005e60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005e70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005e80| 00 00 00 80 4c 49 53 54 | 00 00 08 92 00 00 00 00 |....LIST|........|
|00005e90| 00 00 00 0b 00 00 08 00 | 00 00 00 d9 00 64 00 02 |........|.....d..|
|00005ea0| 00 18 00 03 06 30 ea 25 | 00 00 00 d9 00 00 00 00 |.....0.%|........|
|00005eb0| 00 00 09 88 00 14 00 00 | 0e b7 00 14 00 00 13 21 |........|.......!|
|00005ec0| 00 14 00 00 14 12 00 14 | 00 00 15 47 00 14 00 00 |........|...G....|
|00005ed0| 1c 91 00 14 00 00 1e 2f | 00 14 00 00 20 88 00 14 |......./|.... ...|
|00005ee0| 00 00 22 6c 00 14 00 00 | 24 0a 00 14 00 00 26 ec |.."l....|$.....&.|
|00005ef0| 00 11 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005f00| 00 00 08 00 50 41 47 45 | 00 00 09 88 00 00 00 00 |....PAGE|........|
|00005f10| 00 00 08 92 f0 01 6f 6e | 00 01 65 70 e0 00 00 00 |......on|..ep....|
|00005f20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 08 00 00 |........|........|
|00005f30| 00 02 00 80 00 00 00 00 | 00 00 00 00 20 00 00 00 |........|.... ...|
|00005f40| 00 00 00 00 00 00 00 00 | 00 00 00 00 50 00 00 00 |........|....P...|
|00005f50| 00 00 00 00 00 00 10 00 | 20 00 00 00 00 00 00 40 |........| ......@|
|00005f60| 00 00 c0 00 00 00 80 02 | 02 00 00 00 00 00 04 00 |........|........|
|00005f70| 00 02 00 00 00 00 00 10 | 00 0a 08 00 00 01 93 02 |........|........|
|00005f80| a0 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005f90| 00 00 00 00 00 02 00 00 | 00 00 00 00 00 02 00 00 |........|........|
|00005fa0| 20 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 | .......|........|
|00005fb0| 10 00 00 00 00 00 00 00 | 00 00 10 00 a0 08 00 00 |........|........|
|00005fc0| 00 00 00 40 00 00 80 00 | 00 00 00 00 02 00 00 20 |...@....|....... |
|00005fd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 08 00 00 |........|........|
|00005fe0| 00 00 43 c9 a0 00 00 00 | 00 00 00 00 00 00 00 00 |..C.....|........|
|00005ff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006000| 00 02 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006020| 80 08 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006030| 00 00 00 20 00 00 00 00 | 00 00 00 00 00 00 00 00 |... ....|........|
|00006040| 00 00 00 00 00 00 5a f9 | a0 00 00 00 00 00 00 00 |......Z.|........|
|00006050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006060| 00 00 00 00 00 02 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006080| 00 00 00 00 80 08 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006090| 00 00 00 00 00 00 00 20 | 00 00 00 00 00 00 00 00 |....... |........|
|000060a0| 00 00 00 00 00 00 00 00 | 00 00 62 c2 a0 00 00 00 |........|..b.....|
|000060b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000060c0| 00 00 00 00 00 00 00 00 | 00 02 00 00 00 00 00 00 |........|........|
|000060d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000060e0| 00 00 00 00 00 00 00 00 | 80 08 00 00 00 00 00 00 |........|........|
|000060f0| 00 00 00 00 00 00 00 00 | 00 00 00 20 00 00 00 00 |........|... ....|
|00006100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 6a 8f |........|......j.|
|00006110| a0 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 02 00 00 |........|........|
|00006130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006140| 00 00 00 00 00 00 00 00 | 00 00 00 00 80 08 00 00 |........|........|
|00006150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 20 |........|....... |
|00006160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006170| 00 00 75 12 a0 00 00 00 | 00 00 00 00 00 00 00 00 |..u.....|........|
|00006180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006190| 00 02 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000061a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000061b0| 80 08 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000061c0| 00 00 00 20 00 00 00 00 | 00 00 00 00 00 00 00 00 |... ....|........|
|000061d0| 00 00 00 00 00 00 7d e7 | a0 00 00 00 00 00 00 00 |......}.|........|
|000061e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000061f0| 00 00 00 00 00 02 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006210| 00 00 00 00 80 08 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006220| 00 00 00 00 00 00 00 20 | 00 00 00 00 00 00 00 00 |....... |........|
|00006230| 00 00 00 00 00 00 00 00 | 00 00 85 a7 a0 00 00 00 |........|........|
|00006240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006250| 00 00 00 00 00 00 00 00 | 00 02 00 00 00 00 00 00 |........|........|
|00006260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006270| 00 00 00 00 00 00 00 00 | 80 08 00 00 00 00 00 00 |........|........|
|00006280| 00 00 00 00 00 00 00 00 | 00 00 00 20 00 00 00 00 |........|... ....|
|00006290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 8b 27 |........|.......'|
|000062a0| a0 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000062b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 02 00 00 |........|........|
|000062c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000062d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 80 08 00 00 |........|........|
|000062e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 20 |........|....... |
|000062f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006300| 00 00 96 77 a0 00 00 00 | 00 00 00 00 00 00 00 00 |...w....|........|
|00006310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006320| 00 02 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006340| 80 08 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006350| 00 00 00 20 00 00 00 00 | 00 00 00 00 00 00 00 00 |... ....|........|
|00006360| 00 00 00 00 00 00 9c 5e | a0 00 00 00 00 00 00 00 |.......^|........|
|00006370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006380| 00 00 00 00 00 02 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006390| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000063a0| 00 00 00 00 80 08 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000063b0| 00 00 00 00 00 00 00 20 | 00 00 00 00 00 00 00 00 |....... |........|
|000063c0| 00 00 00 00 00 00 00 00 | 00 00 a7 0e a0 00 00 00 |........|........|
|000063d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000063e0| 00 00 00 00 00 00 00 00 | 00 02 00 00 00 00 00 00 |........|........|
|000063f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+